Browse files

Merge pull request #1 from yihuang/master

build on ghc-7.4
  • Loading branch information...
2 parents 94c71e4 + 41cf215 commit 6fe04072d83eb437f11ba052605f6b508e9231d4 @bos committed Jan 31, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Database/MySQL/Base.hs
View
2 Database/MySQL/Base.hs
@@ -554,7 +554,7 @@ withMaybeString :: Maybe String -> (CString -> IO a) -> IO a
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 #-}

0 comments on commit 6fe0407

Please sign in to comment.