lib: formatter run

1 files changed, 19 insertions, 18 deletions

diff --git a/lib/Server/Subscribe.hs b/lib/Server/Subscribe.hs
index 5b0edb5..86b67a6 100644
--- a/lib/Server/Subscribe.hs
+++ b/lib/Server/Subscribe.hs
@@ -1,25 +1,26 @@
-{-# LANGUAGE BlockArguments#-}
+{-# LANGUAGE BlockArguments #-}
 
 module Server.Subscribe where
-import           Conduit                (MonadIO (..))
-import           Control.Concurrent.STM (atomically, newTQueue, readTQueue,
-                                         readTVar, writeTVar)
-import           Control.Exception      (handle)
-import           Control.Monad.Extra    (forever, whenJust)
-import qualified Data.Aeson             as A
-import qualified Data.ByteString.Char8  as C8
-import           Data.Coerce            (coerce)
-import           Data.Functor           ((<&>))
-import           Data.Map               (Map)
-import qualified Data.Map               as M
+import           Conduit                         (MonadIO (..))
+import           Control.Concurrent.STM          (atomically, newTQueue,
+                                                  readTQueue, readTVar,
+                                                  writeTVar)
+import           Control.Exception               (handle)
+import           Control.Monad.Extra             (forever, whenJust)
+import qualified Data.Aeson                      as A
+import qualified Data.ByteString.Char8           as C8
+import           Data.Coerce                     (coerce)
+import           Data.Functor                    ((<&>))
+import           Data.Map                        (Map)
+import qualified Data.Map                        as M
 import           Data.Pool
-import           Data.UUID              (UUID)
-import           Database.Persist.Sql   (SqlBackend)
-import qualified Network.WebSockets     as WS
+import           Data.UUID                       (UUID)
+import           Database.Esqueleto.Experimental hiding ((<&>))
+import           Database.Persist.Sql            (SqlBackend)
+import qualified Network.WebSockets              as WS
 import           Persist
-import           Server.Base            (ServerState)
-import           Server.Util            (ServiceM)
-import Database.Esqueleto.Experimental hiding ((<&>))
+import           Server.Base                     (ServerState)
+import           Server.Util                     (ServiceM)
 
 handleSubscribe
   :: Pool SqlBackend