Permalink
Browse files

Minor fixes for snippets, non-visible

  • Loading branch information...
1 parent 415a5f7 commit 4aeffc4d9d20c667106da9ed6324251e374305a0 @snoyberg committed Mar 4, 2012
@@ -23,7 +23,7 @@
<codeph id="x-19">-ddump-splices</codeph> GHC option, we can get an immediate look at the
generated code. A much cleaned up version of it is:</p>
<codeblock id="x-20" outputclass="haskell">{-# LANGUAGE TypeFamilies, MultiParamTypeClasses, OverloadedStrings #-}
-import Yesod.Routes.Dispatch
+import qualified Yesod.Routes.Dispatch
import Yesod.Routes.Class
import Yesod.Core
@@ -77,6 +77,13 @@ instance PersistEntity Person where
(FTTypeCon Nothing "Int")
[]
-- STOP
+ data Unique Person typ = IgnoreThis
+ entityDef = undefined
+ halfDefined = undefined
+ persistUniqueToFieldNames = undefined
+ persistUniqueToValues = undefined
+ persistUniqueKeys = undefined
+ persistIdField = undefined
main :: IO ()
main = return ()</codeblock><p id="bb3">As you might expect, our <codeph>Person</codeph> datatype closely matches the definition
we gave in the original Template Haskell version. We also have a Generalized Algebraic

0 comments on commit 4aeffc4

Please sign in to comment.