mysql 0.1.1.7 → 0.1.1.8

raw patch · 2 files changed

+6/−6 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Database/MySQL/Base.hs +5/−5
• mysql.cabal +1/−1

@@ -462,9 +462,9 @@ -- | Immediately free the @MYSQL_RES@ value associated with this -- 'Result', and mark the @Result@ as invalid. freeResult :: Result -> IO ()-freeResult Result{..}      = withForeignPtr resFP $-                             freeResult_ resValid resFreeResult-freeResult EmptyResult{..} = return ()+freeResult Result{..}  = withForeignPtr resFP $+                         freeResult_ resValid resFreeResult+freeResult EmptyResult = return ()  -- | Check whether a 'Result' is still valid, i.e. backed by a live -- @MYSQL_RES@ value.@@ -490,12 +490,12 @@                    memcpy d (castPtr colPtr) (fromIntegral len)       sequence =<< zipWith go <$> peekArray resFields lenPtr                               <*> peekArray resFields rowPtr-fetchRow EmptyResult{..} = return []+fetchRow EmptyResult = return []  fetchFields :: Result -> IO [Field] fetchFields res@Result{..} = withRes "fetchFields" res $ \ptr -> do   peekArray resFields =<< resFetchFields ptr-fetchFields EmptyResult{..} = return []+fetchFields EmptyResult    = return []  dataSeek :: Result -> Int64 -> IO () dataSeek res row = withRes "dataSeek" res $ \ptr ->

@@ -1,5 +1,5 @@ name:           mysql-version:        0.1.1.7+version:        0.1.1.8 homepage:       https://github.com/bos/mysql bug-reports:    https://github.com/bos/mysql/issues synopsis:       A low-level MySQL client library.