Skip to content
Browse files

build on ghc-7.4

  • Loading branch information...
1 parent 94c71e4 commit 41cf21521e84e90c3ab1a0532fd6dddaae3e3452 @yihuang yihuang 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 41cf215

Please sign in to comment.
Something went wrong with that request. Please try again.