@@ -130,9 +130,9 @@ startServer port env = withSocketsDo $ do
131 loop :: (Ide m, MonadLogger m) => Socket -> m ()
131 loop :: (Ide m, MonadLogger m) => Socket -> m ()
132 loop sock = do
132 loop sock = do
133− accepted <- runExceptT $ acceptCommand sock
133+ accepted <- runExceptT (acceptCommand sock)
134 case accepted of
134 case accepted of
135− Left err -> $(logDebug) err
135+ Left err -> $(logError) err
136 Right (cmd, h) -> do
136 Right (cmd, h) -> do
137 case decodeT cmd of
137 case decodeT cmd of
138 Just cmd' -> do
138 Just cmd' -> do
@@ -147,7 +147,7 @@ startServer port env = withSocketsDo $ do
147 Right r -> liftIO $ BS8.hPutStrLn h (Aeson.encode r)
147 Right r -> liftIO $ BS8.hPutStrLn h (Aeson.encode r)
148 Left err -> liftIO $ BS8.hPutStrLn h (Aeson.encode err)
148 Left err -> liftIO $ BS8.hPutStrLn h (Aeson.encode err)
149 Nothing -> do
149 Nothing -> do
150− $(logDebug) ("Parsing the command failed. Command: " <> cmd)
150+ $(logError) ("Parsing the command failed. Command: " <> cmd)
151 liftIO $ do
151 liftIO $ do
152 T.hPutStrLn h (encodeT (GeneralError "Error parsing Command."))
152 T.hPutStrLn h (encodeT (GeneralError "Error parsing Command."))
153 hFlush stdout
153 hFlush stdout
@@ -167,7 +167,7 @@ acceptCommand sock = do
167 case cmd' of
167 case cmd' of
168 Nothing -> throwError "Connection was closed before any input arrived"
168 Nothing -> throwError "Connection was closed before any input arrived"
169 Just cmd -> do
169 Just cmd -> do
170− $(logDebug) cmd
170+ $(logDebug) ("Received command: " <> cmd)
171 pure (cmd, h)
171 pure (cmd, h)
173 acceptConnection = liftIO $ do
173 acceptConnection = liftIO $ do