Skip to content

Instantly share code, notes, and snippets.

@oleander
Created March 21, 2015 16:12
Show Gist options
  • Select an option

  • Save oleander/12b58c501871d64d1153 to your computer and use it in GitHub Desktop.

Select an option

Save oleander/12b58c501871d64d1153 to your computer and use it in GitHub Desktop.

Revisions

  1. oleander created this gist Mar 21, 2015.
    16 changes: 16 additions & 0 deletions gistfile1.txt
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,16 @@
    Handler/Comment.hs:25:29:
    Couldn't match type `Text' with `Entity Post'
    Expected type: Field (HandlerT App IO) (Entity Post)
    Actual type: Field (HandlerT App IO) Text
    In the first argument of `areq', namely `textField'
    In the second argument of `(<$>)', namely
    `areq textField "Post" (Just post)'
    In the second argument of `(<*>)', namely
    `(entityKey <$> areq textField "Post" (Just post))'

    Handler/Comment.hs:25:52:
    Couldn't match expected type `Entity Post' with actual type `Post'
    In the first argument of `Just', namely `post'
    In the third argument of `areq', namely `(Just post)'
    In the second argument of `(<$>)', namely
    `areq textField "Post" (Just post)'