@@ -42,7 +42,7 @@ instance FromField UUID where
42 Nothing -> returnError UnexpectedNull f \"\"
42 Nothing -> returnError UnexpectedNull f \"\"
43 Just data ->
43 Just data ->
44 case [ x | (x,t) <- reads data, (\"\",\"\") <- lex t ] of
44 case [ x | (x,t) <- reads data, (\"\",\"\") <- lex t ] of
45− [x] -> Ok x
45+ [x] -> return x
46 _ -> returnError ConversionError f data
46 _ -> returnError ConversionError f data