hasql-notifications 0.2.2.0 → 0.2.2.1

raw patch · 2 files changed

+12/−5 lines, 2 filesdep ~hasql-poolPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: hasql-pool

API changes (from Hackage documentation)

Files

• hasql-notifications.cabal +2/−2
• src/Hasql/Notifications.hs +10/−3

@@ -1,5 +1,5 @@ name:                hasql-notifications-version:             0.2.2.0+version:             0.2.2.1 synopsis:            LISTEN/NOTIFY support for Hasql description:         Use PostgreSQL Asynchronous notification support with your Hasql Types. homepage:            https://github.com/diogob/hasql-notifications@@ -19,7 +19,7 @@   build-depends:       base >= 4.7 && < 5                      , bytestring >= 0.10.8.2                      , text >= 2 && < 2.2-                     , hasql-pool >= 0.4 && < 1.1+                     , hasql-pool >= 0.5 && < 0.6                      , bytestring >= 0.10                      , postgresql-libpq >= 0.9 && < 1.0                      , hasql >= 0.19

@@ -17,8 +17,11 @@     FatalError (..),   ) where--import Control.Concurrent (threadDelay, threadWaitRead)+#if defined(mingw32_HOST_OS)+import Control.Concurrent ( threadDelay )+#else+import Control.Concurrent (threadWaitRead, threadDelay)+#endif import Control.Exception (Exception, throw) import Control.Monad (forever, unless, void, when) import Data.ByteString.Char8 (ByteString)@@ -190,9 +193,13 @@           mfd <- PQ.socket pqCon           case mfd of             Nothing -> void $ threadDelay 1000000+#if defined(mingw32_HOST_OS)+            Just _ -> do+              void $ threadDelay 1000000+#else             Just fd -> do               void $ threadWaitRead fd-+#endif               result <- PQ.consumeInput pqCon               unless result $ do                 mError <- PQ.errorMessage pqCon