mightybyte avatar mightybyte committed 6ae24da

Fix haddock code example so it compiles.

Comments (0)

Files changed (1)

Database/MySQL/Simple/QueryResults.hs

 -- '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
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.