Use the FromField instance for Char in GenTypeInfo
commitba0cd23cc0396dae06f3581188a6558ad8df1555
authorLeon P Smith <leon@melding-monads.com>
dateFri 23 Aug 2013, 17:08 (13 years ago)
parent579a679
tools/GenTypeInfo.hs+1−3
@@ -66,9 +66,7 @@ data TypeInfo = TypeInfo
6666 }
6767
6868instance FromRow TypeInfo where
69− fromRow = TypeInfo <$> field <*> charF <*> charF <*> field <*> field
70− where charF = fieldWith (\_f dat -> return (B.head (unJust dat)))
71− unJust (Just x) = x
69+ fromRow = TypeInfo <$> field <*> field <*> field <*> field <*> field
7270
7371type NameMap = Map.Map B.ByteString TypeInfo
7472