Further improve error messages

1 files changed, 1 insertions, 1 deletions

diff --git a/app/Main.hs b/app/Main.hs
index b62e614..f4fa1d0 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -32,7 +32,7 @@ runServer port = run port $ \request send -> do
           .| sinkParser Ae.json
       case Ae.fromJSON val of
           Ae.Success r -> return r
-          Ae.Error s -> throwM $ DecodeException $ T.pack s
+          Ae.Error s -> throwM $ DecodeException $ "Recieve message: " <> T.pack s
     case eres of
       Left e -> send $ errorResponse e
       Right inMes -> do