Merge pull request #106 from diogob/fix-connection-closing-when-no-write-mode-is-present

Prevent connection from closing when opening channels without write mode

Author: diogob

src/PostgresWebsockets/Config.hs

@@ -18,7 +18,7 @@ import APrelude
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Base64 as B64
 import Data.String (IsString (..))
-import Data.Text (intercalate, pack, replace, strip, stripPrefix)
+import Data.Text (intercalate, replace, strip, stripPrefix)
 import Data.Version (versionBranch)
 import Env
 import Network.Wai.Handler.Warp

src/PostgresWebsockets/HasqlBroadcast.hs

@@ -21,8 +21,6 @@ import Data.Aeson (Value (..), decode)
 import qualified Data.Aeson.Key as Key
 import qualified Data.Aeson.KeyMap as JSON
 import Data.Either.Combinators (mapBoth)
-import Data.Function (id)
-import GHC.Show
 import Hasql.Connection
 import qualified Hasql.Decoders as HD
 import qualified Hasql.Encoders as HE

src/PostgresWebsockets/Middleware.hs

@@ -111,8 +111,7 @@ wsApp Context {..} pendingConn =
         when (hasWrite mode) $
           notifySession conn sendNotification chs
 
-        waitForever <- newEmptyMVar
-        void $ takeMVar waitForever
+        void $ forever $ threadDelay maxBound
 
 -- Having both channel and claims as parameters seem redundant
 -- But it allows the function to ignore the claims structure and the source