Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix haddock code example so it compiles.

  • Loading branch information...
commit aeffa9dca28450c622ef2ae9bb0fc348fb52da3c 1 parent fa31d7e
@mightybyte mightybyte authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 Database/MySQL/Simple/QueryResults.hs
View
6 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
Please sign in to comment.
Something went wrong with that request. Please try again.