diff options
Diffstat (limited to 'src/server/Controller/Payment.hs')
| -rw-r--r-- | src/server/Controller/Payment.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs index 96ac469..9155a78 100644 --- a/src/server/Controller/Payment.hs +++ b/src/server/Controller/Payment.hs @@ -28,7 +28,7 @@ import qualified Model.Json.EditPayment as Json list :: ActionM () list = - Secure.loggedAction (\_ -> do + Secure.loggedAction (\_ -> (liftIO $ runDb Payment.list) >>= json ) |