@@ -32,9 +32,9 @@ might look like for a UUID type that implements the @Read@ class:
3232@
3333import Data.UUID ( UUID )
3434import Database.PostgreSQL.Simple.FromField
35− ( typeOid, returnError, ResultError(..) )
35+ ( FromField (fromField) , typeOid, returnError, ResultError (..) )
3636import Database.PostgreSQL.Simple.TypeInfo.Static (typoid, uuid)
37−import qualified Data.ByteString as B
37+import qualified Data.ByteString.Char8 as B
3838
3939instance FromField UUID where
4040 fromField f mdata =
@@ -45,7 +45,7 @@ instance FromField UUID where
4545 Just dat ->
4646 case [ x | (x,t) <- reads dat, (\"\",\"\") <- lex t ] of
4747 [x] -> return x
48− _ -> returnError ConversionError f dat
48+ _ -> returnError ConversionFailed f dat
4949@
5050
5151Note that because PostgreSQL's @uuid@ type is built into postgres and is