Bump store-core version

postgres-wire.cabal

@@ -52,7 +52,7 @@ library
                      , stm
                      , tls
                      , cryptonite
-                     , store-core
+                     , store-core   >= 0.4.1 && < 0.5
                      , scientific
                      , uuid
   default-language:    Haskell2010

src/Database/PostgreSQL/Driver/Settings.hs

@@ -1,6 +1,6 @@
-module Database.PostgreSQL.Driver.Settings 
+module Database.PostgreSQL.Driver.Settings
     ( ConnectionSettings(..)
-    , TlsMode
+    , TlsMode (..)
     , defaultConnectionSettings
     ) where
 

src/Database/PostgreSQL/Protocol/Store/Decode.hs

@@ -33,15 +33,14 @@ runDecodeIO (Decode dec) bs = do
 embedIO :: IO a -> Decode a
 embedIO action = Decode $ Peek $ \_ ptr -> do
     v <- action
-    return (ptr, v)
+    pure (PeekResult ptr v)
 
 {-# INLINE prim #-}
 prim :: Int -> (Ptr Word8 -> IO a) -> Decode a
 prim len f = Decode $ Peek $ \ps ptr -> do
     !v <- f ptr
     let !newPtr = ptr `plusPtr` len
-    return (newPtr, v)
-    -- return $ PeekResult newPtr v
+    pure (PeekResult newPtr v)
 
 -- Public
 
@@ -54,16 +53,14 @@ getByteString :: Int -> Decode B.ByteString
 getByteString len = Decode $ Peek $ \ps ptr -> do
     bs <- B.packCStringLen (castPtr ptr, len)
     let !newPtr = ptr `plusPtr` len
-    -- return $ PeekResult newPtr bs
-    return (newPtr, bs)
+    pure (PeekResult newPtr bs)
 
 {-# INLINE getByteStringNull #-}
 getByteStringNull :: Decode B.ByteString
 getByteStringNull = Decode $ Peek $ \ps ptr -> do
     bs <- B.packCString (castPtr ptr)
     let !newPtr = ptr `plusPtr` (B.length bs + 1)
-    -- return $ PeekResult newPtr bs
-    return (newPtr, bs)
+    pure (PeekResult newPtr bs)
 
 {-# INLINE getWord8 #-}
 getWord8 :: Decode Word8
@@ -95,12 +92,12 @@ getInt64BE = fromIntegral <$> getWord64BE
 
 {-# INLINE getFloat32BE #-}
 getFloat32BE :: Decode Float
-getFloat32BE = prim 4 $ \ptr -> byteSwap32 <$> peek (castPtr ptr) 
+getFloat32BE = prim 4 $ \ptr -> byteSwap32 <$> peek (castPtr ptr)
                                     >>= wordToFloat
 
 {-# INLINE getFloat64BE #-}
 getFloat64BE :: Decode Double
-getFloat64BE = prim 8 $ \ptr -> byteSwap64 <$> peek (castPtr ptr) 
+getFloat64BE = prim 8 $ \ptr -> byteSwap64 <$> peek (castPtr ptr)
                                     >>= wordToFloat
 
 {-# INLINE wordToFloat #-}

stack.yaml

@@ -1,6 +1,6 @@
 # This file was automatically generated by 'stack init'
 #
-resolver: lts-8.0
+resolver: lts-8.21
 
 packages:
 - '.'
@@ -9,7 +9,6 @@ packages:
 extra-deps: 
     - socket-0.8.0.0
     - socket-unix-0.2.0.0
-    - store-core-0.3
 
 # Override default flag values for local packages and extra-deps
 flags: {}