1. Bryan O'Sullivan
  2. mysql

Commits

Bryan O'Sullivan  committed 4a4b2a9 Merge

Merge pull request #1 from yihuang/master

build on ghc-7.4

  • Participants
  • Parent commits 54e0431, e9c9129
  • Branches default

Comments (0)

Files changed (1)

File Database/MySQL/Base.hs

View file
  • Ignore whitespace
 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 #-}