aboutsummaryrefslogtreecommitdiff
path: root/src/server/Main.hs
diff options
context:
space:
mode:
authorJoris2016-06-25 15:10:03 +0200
committerJoris2016-06-25 22:09:04 +0200
commit70720548c9af024dbb6080638ac8e5470c2213eb (patch)
treea149bd6d8f1448de11ac4b0b41c52bc82052035a /src/server/Main.hs
parent4ce4de89a5400b0d8b9cddaa2922901a081fdaaa (diff)
downloadbudget-70720548c9af024dbb6080638ac8e5470c2213eb.tar.gz
budget-70720548c9af024dbb6080638ac8e5470c2213eb.tar.bz2
budget-70720548c9af024dbb6080638ac8e5470c2213eb.zip
Use the search to view either punctual or monthly payments
Diffstat (limited to 'src/server/Main.hs')
-rw-r--r--src/server/Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/server/Main.hs b/src/server/Main.hs
index 9946961..d04a3ac 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -74,7 +74,7 @@ main = do
post "/payment/add" $ do
name <- param "name" :: ActionM Text
- cost <- param "cost" :: ActionM Text
+ cost <- param "cost" :: ActionM Int
frequency <- param "frequency" :: ActionM Frequency
createPayment name cost frequency