Merge pull request #28 from shak-mar/fix-32bit

Fix tests on 32 bit machines

Author: ameingast

Readme.markdown

@@ -19,7 +19,7 @@ or in Haskell.
 
 ## Why?
 Database migrations should not be hard. They should be under version control
-and documented in both your production systems and in your project files.
+and documented both in your production systems and in your project files.
 
 ## What?
 This library executes SQL/Haskell migration scripts and keeps track of their

src/Database/PostgreSQL/Simple/Util.hs

@@ -21,15 +21,16 @@ module Database.PostgreSQL.Simple.Util
 import           Control.Exception          (finally)
 import           Database.PostgreSQL.Simple (Connection, Only (..), begin,
                                              query, rollback)
+import           GHC.Int                    (Int64)
 
 -- | Checks if the table with the given name exists in the database.
 existsTable :: Connection -> String -> IO Bool
 existsTable con table =
-    fmap checkRowCount (query con q (Only table) :: IO [[Int]])
+    fmap checkRowCount (query con q (Only table) :: IO [[Int64]])
     where
         q = "select count(relname) from pg_class where relname = ?"
 
-        checkRowCount :: [[Int]] -> Bool
+        checkRowCount :: [[Int64]] -> Bool
         checkRowCount ((1:_):_) = True
         checkRowCount _         = False