khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-01 22:02:07 +03:00
Code Issues Projects Releases Wiki Activity

fix #6

Browse Source
This commit is contained in:
Shohei Murayama 2015-03-18 19:33:47 +09:00
parent b1f27c1996
commit 296730fbc6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
relational-schemas/src/Database/Relational/Schema/SQLite3.hs
View File

@ -40,8 +40,8 @@ normalizeType = normalizeColumn . takeWhile (not . flip elem " (")
notNull :: TableInfo -> Bool
notNull info = isTrue . TableInfo.notnull $ info
where
isTrue 1 = True
isTrue _ = False
isTrue 0 = False
isTrue _ = True
getType :: Map String TypeQ -> TableInfo -> Maybe (String, TypeQ)
getType mapFromSql info = do