haskell-jp / questions #27

(Nil,0)
(Bool True,1)
(Bool False,2)
(UInt8 1,3)
(UInt16 2,5)

data Comment = Comment
    { cId          :: !Integer
    , cAuthor      :: !User
    , cParentId    :: !(Maybe Integer)
    , cPoint       :: !Int
    , cDescription :: !Text
    , cResponse    :: ![Comment]
    } deriving Show

arbitrary = go 0
 where
  go depth = do
    ...
    cResponse <-
      if depth == 200
        then pure []
        else vecorOf listLen $ go (depth + 1)
    pure Comment {..}

arbitrary = scale (min 200) $ sized $ \size -> {- 最大でsize個のcResponseを持つCommentを生成する処理-}

<no location info>: warning: [-Wmissing-home-modules]
[ 1 of 10] Compiling Paths_iCalendar  ( .stack-work\dist\7d103d30\build\autogen\Paths_iCalendar.hs, .stack-work\dist\7d103d30\build\Paths_iCalendar.o )
    These modules are needed for compilation but not listed in your .cabal file's other-modules: Paths_iCalendar

*** Exception: SqlError {sqlState = "42804", sqlExecStatus = FatalError, sqlErrorMsg = "column \"created_at\" is of type timestamp with time zone but default expression is of type time with time zone", sqlErrorDetail = "", sqlErrorHint = "You will need to rewrite or cast the expression."}