Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Loading…

build on ghc-7.4 #1

Merged
merged 1 commit into from

3 participants

@yihuang

No description provided.

@bos bos merged commit 6fe0407 into bos:master
@gregwebs

please release this on hackage.

@ghost

please release this on hackage

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Commits on Jan 31, 2012
  1. @yihuang

    build on ghc-7.4

    yihuang authored
This page is out of date. Refresh to see the latest.
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 #-}
Something went wrong with that request. Please try again.