trying to make it work with ghc 7.8 (3)
This commit is contained in:
@@ -91,7 +91,7 @@ main = do
|
|||||||
|
|
||||||
-- read the structure of the database
|
-- read the structure of the database
|
||||||
-- read the structure of the database
|
-- read the structure of the database
|
||||||
let txParam = (Just (H.ReadCommitted, Just True))
|
let txParam = Just (H.ReadCommitted, Just True)
|
||||||
|
|
||||||
tblsRes <- H.session pool $ H.tx txParam alltables
|
tblsRes <- H.session pool $ H.tx txParam alltables
|
||||||
let allTables = either (fail . show) id tblsRes
|
let allTables = either (fail . show) id tblsRes
|
||||||
|
|||||||
Reference in New Issue
Block a user