diff options
| author | Joris | 2019-12-08 11:39:37 +0100 |
|---|---|---|
| committer | Joris | 2019-12-08 11:39:37 +0100 |
| commit | 316bda10c6bec8b5ccc9e23f1f677c076205f046 (patch) | |
| tree | 98da1d18834108af50f80ca6fa5c0f4facc42472 /server/src/Json.hs | |
| parent | e622e8fdd2e40b4306b5cc724d8dfb76bf976242 (diff) | |
Add category page
Diffstat (limited to 'server/src/Json.hs')
| -rw-r--r-- | server/src/Json.hs | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/server/src/Json.hs b/server/src/Json.hs deleted file mode 100644 index 6d40305..0000000 --- a/server/src/Json.hs +++ /dev/null @@ -1,16 +0,0 @@ -module Json - ( jsonObject - , jsonId - ) where - -import qualified Data.Aeson.Types as Json -import qualified Data.HashMap.Strict as M -import Data.Int (Int64) -import Data.Text (Text) -import Web.Scotty - -jsonObject :: [(Text, Json.Value)] -> ActionM () -jsonObject = json . Json.Object . M.fromList - -jsonId :: Int64 -> ActionM () -jsonId key = json . Json.Object . M.fromList $ [("id", Json.Number . fromIntegral $ key)] |