Fix haddock code example so it compiles.

paul-rouse · Feb 8, 2012 · aeffa9d · aeffa9d
1 parent fa31d7e
commit aeffa9d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Database/MySQL/Simple/QueryResults.hs b/Database/MySQL/Simple/QueryResults.hs
@@ -59,13 +59,13 @@ import Database.MySQL.Simple.Types (Only(..))
 -- 'QueryResults'.
 --
 -- @
---data User { firstName :: String, lastName :: String }
+--data User = User { firstName :: String, lastName :: String }
 --
 --instance 'QueryResults' User where
---    'convertResults' [fa,fb] [va,vb] = User a b
+--    'convertResults' [fa,fb] [va,vb] = User <$> a <*> b
 --        where !a = 'convert' fa va
 --              !b = 'convert' fb vb
---    'convertResults' fs vs  = 'convertError' fs vs
+--    'convertResults' fs vs  = 'convertError' fs vs 2
 -- @
 
 class QueryResults a where