git.iko.soy/typeable/postgresql-simple
on master help sign in
Fix static type info generator
7d0aab8Manuel Gómez
tools/GenTypeInfo.hs+1−1
compare with master
unifiedsplit
@@ -67,7 +67,7 @@ data TypeInfo = TypeInfo
67
67
68instance FromRow TypeInfo where
68instance FromRow TypeInfo where
69 fromRow = TypeInfo <$> field <*> charF <*> charF <*> field <*> field
69 fromRow = TypeInfo <$> field <*> charF <*> charF <*> field <*> field
70− where charF = fieldWith (\_f dat -> Ok (B.head (unJust dat)))
70+ where charF = fieldWith (\_f dat -> return (B.head (unJust dat)))
71 unJust (Just x) = x
71 unJust (Just x) = x
72
72
73type NameMap = Map.Map B.ByteString TypeInfo
73type NameMap = Map.Map B.ByteString TypeInfo