@@ -39,11 +39,11 @@ instance FromField UUID where
39 if typeOid f /= builtin2oid UUID
39 if typeOid f /= builtin2oid UUID
40 then returnError Incompatible f \"\"
40 then returnError Incompatible f \"\"
41 else case B.unpack \`fmap\` mdata of
41 else case B.unpack \`fmap\` mdata of
42− Nothing -> returnError UnexpectedNull f \"\"
42+ Nothing -> returnError UnexpectedNull f \"\"
43− Just data ->
43+ Just dat ->
44− case [ x | (x,t) <- reads data, (\"\",\"\") <- lex t ] of
44+ case [ x | (x,t) <- reads dat, (\"\",\"\") <- lex t ] of
45 [x] -> return x
45 [x] -> return x
46− _ -> returnError ConversionError f data
46+ _ -> returnError ConversionError f dat
49Note that because PostgreSQL's @uuid@ type is built into postgres and is
49Note that because PostgreSQL's @uuid@ type is built into postgres and is