trying to make it work with ghc 7.8 (3)

2015-09-28 16:54:34 +03:00
parent a4a2c8b886
commit 1da26cac98
1 changed files with 1 additions and 1 deletions
@@ -91,7 +91,7 @@ main = do

    -- 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
  let allTables = either (fail . show) id tblsRes