diff options
| author | Joris | 2016-03-11 23:21:06 +0100 |
|---|---|---|
| committer | Joris | 2016-03-11 23:21:06 +0100 |
| commit | 9d57e149fcb124a28813c56f83cf254eb92baa42 (patch) | |
| tree | b796c4fdc738006c07e65e01f4845adafe064d2a /src/server/Json.hs | |
| parent | 709d1cf587e92508ef73bca8e847cfa510c03069 (diff) | |
| download | budget-9d57e149fcb124a28813c56f83cf254eb92baa42.tar.gz budget-9d57e149fcb124a28813c56f83cf254eb92baa42.tar.bz2 budget-9d57e149fcb124a28813c56f83cf254eb92baa42.zip | |
Don't use persona anymore, use email token to sign in
Diffstat (limited to 'src/server/Json.hs')
| -rw-r--r-- | src/server/Json.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/server/Json.hs b/src/server/Json.hs index bd5ac3e..935a9cb 100644 --- a/src/server/Json.hs +++ b/src/server/Json.hs @@ -1,8 +1,7 @@ {-# LANGUAGE OverloadedStrings #-} module Json - ( jsonError - , jsonObject + ( jsonObject ) where import Web.Scotty @@ -13,10 +12,5 @@ import qualified Data.Aeson.Types as Json import qualified Data.HashMap.Strict as M import Data.Text (Text) -jsonError :: Text -> ActionM () -jsonError msg = do - status badRequest400 - jsonObject [("error", Json.String msg)] - jsonObject :: [(Text, Json.Value)] -> ActionM () jsonObject = json . Json.Object . M.fromList |