diff options
author | Joris | 2019-10-20 21:31:57 +0200 |
---|---|---|
committer | Joris | 2019-10-20 21:31:57 +0200 |
commit | 602c52acfcfa494b07fec05c20b317b60ea8a6f3 (patch) | |
tree | 34fd9c44f82a83569822bc36eb2e0b04518e59f2 /server/src/Controller/Category.hs | |
parent | 7aadcc97f9df0e2daccbe8a8726d8bc6c63d67f4 (diff) | |
download | budget-602c52acfcfa494b07fec05c20b317b60ea8a6f3.tar.gz budget-602c52acfcfa494b07fec05c20b317b60ea8a6f3.tar.bz2 budget-602c52acfcfa494b07fec05c20b317b60ea8a6f3.zip |
Load init data per page with AJAX
Diffstat (limited to 'server/src/Controller/Category.hs')
-rw-r--r-- | server/src/Controller/Category.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/server/src/Controller/Category.hs b/server/src/Controller/Category.hs index 37b8357..e536caa 100644 --- a/server/src/Controller/Category.hs +++ b/server/src/Controller/Category.hs @@ -1,5 +1,6 @@ module Controller.Category - ( create + ( list + , create , edit , delete ) where @@ -19,6 +20,12 @@ import qualified Persistence.Category as CategoryPersistence import qualified Persistence.PaymentCategory as PaymentCategoryPersistence import qualified Secure +list :: ActionM () +list = + Secure.loggedAction (\_ -> + (liftIO . Query.run $ CategoryPersistence.list) >>= json + ) + create :: CreateCategory -> ActionM () create (CreateCategory name color) = Secure.loggedAction (\_ -> |