diff options
| author | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-10-16 14:42:44 -0500 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-10-16 14:42:44 -0500 |
| commit | 05f4a6817bb9916ad45f7efb0738ed5b845b469e (patch) | |
| tree | 712a18ef8444359287e217e345502617e6042deb /app/Main.hs | |
| parent | a2111ffa6e530e054c377d9538b8b066f218de29 (diff) | |
Update README
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index f4fa1d0..0d5b8c3 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 $ "Recieve message: " <> T.pack s + Ae.Error s -> throwM $ DecodeException $ "Receive message: " <> T.pack s case eres of Left e -> send $ errorResponse e Right inMes -> do |