Fix haddock issue

input-output-hk · Jun 13, 2019 · 2de183c · 2de183c
1 parent 956fbc1
commit 2de183c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Cardano/Shell/NodeIPC/Lib.hs b/src/Cardano/Shell/NodeIPC/Lib.hs
@@ -249,9 +249,9 @@ handleIPCProtocol :: forall m. (MonadIO m) => Port -> MsgIn -> m MsgOut
 handleIPCProtocol (Port port) = \case
     QueryPort          -> pure (ReplyPort port)
     Ping               -> pure Pong
-    Shutdown           -> return ShutdownInitiated >> liftIO $ exitWith (ExitFailure 22)
-    -- ^ Send message, flush buffer, shutdown. Since it's complicated to reason with another
+    -- Send message, flush buffer, shutdown. Since it's complicated to reason with another
     -- thread that shuts down the program after some time, we do it immediately.
+    Shutdown           -> return ShutdownInitiated >> liftIO $ exitWith (ExitFailure 22)
     MessageInFailure f -> pure $ MessageOutFailure f
 
 -- | Start IPC listener with given Handles and Port