From 5911078e6826dc7bf27abbf432240c6c1d701a91 Mon Sep 17 00:00:00 2001 From: Jacques Comeaux Date: Sun, 29 May 2022 17:30:44 -0500 Subject: Further improve error messages --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'app/Main.hs') 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 -- cgit v1.2.3