diff --git a/Database/MySQL/Base.hs b/Database/MySQL/Base.hs
--- a/Database/MySQL/Base.hs
+++ b/Database/MySQL/Base.hs
@@ -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 ->
diff --git a/mysql.cabal b/mysql.cabal
--- a/mysql.cabal
+++ b/mysql.cabal
@@ -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.