@@ -32,9 +32,9 @@ might look like for a UUID type that implements the @Read@ class:
33import Data.UUID ( UUID )
33import Data.UUID ( UUID )
34import Database.PostgreSQL.Simple.FromField
34import Database.PostgreSQL.Simple.FromField
35− ( typeOid, returnError, ResultError(..) )
35+ ( FromField (fromField) , typeOid, returnError, ResultError (..) )
36import Database.PostgreSQL.Simple.TypeInfo.Static (typoid, uuid)
36import Database.PostgreSQL.Simple.TypeInfo.Static (typoid, uuid)
37−import qualified Data.ByteString as B
37+import qualified Data.ByteString.Char8 as B
39instance FromField UUID where
39instance FromField UUID where
40 fromField f mdata =
40 fromField f mdata =
@@ -45,7 +45,7 @@ instance FromField UUID where
45 Just dat ->
45 Just dat ->
46 case [ x | (x,t) <- reads dat, (\"\",\"\") <- lex t ] of
46 case [ x | (x,t) <- reads dat, (\"\",\"\") <- lex t ] of
47 [x] -> return x
47 [x] -> return x
48− _ -> returnError ConversionError f dat
48+ _ -> returnError ConversionFailed f dat
51Note that because PostgreSQL's @uuid@ type is built into postgres and is
51Note that because PostgreSQL's @uuid@ type is built into postgres and is