Fix static type info generator
commit7d0aab8363c9a6905542d6888598582e72d9a190
authorManuel Gómez <targen@gmail.com>
dateThu 15 Aug 2013, 23:58 (13 years ago)
parentafb1604
tools/GenTypeInfo.hs+1−1
@@ -67,7 +67,7 @@ data TypeInfo = TypeInfo
6767
6868instance FromRow TypeInfo where
6969 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)))
7171 unJust (Just x) = x
7272
7373type NameMap = Map.Map B.ByteString TypeInfo