Commits

Bryan O'Sullivan committed 4a4b2a9 Merge

Merge pull request #1 from yihuang/master

build on ghc-7.4

  • Participants
  • Parent commits 54e0431, e9c9129

Comments (0)

Files changed (1)

Database/MySQL/Base.hs

 withMaybeString Nothing act = act nullPtr
 withMaybeString (Just xs) act = withCString xs act
 
-check :: Num a => String -> Connection -> a -> IO ()
+check :: (Eq a, Num a) => String -> Connection -> a -> IO ()
 check func conn r = unless (r == 0) $ connectionError func conn
 {-# INLINE check #-}