Design income form

2 files changed, 9 insertions, 44 deletions

diff --git a/src/client/elm/Utils/Date.elm b/src/client/elm/Utils/Date.elm
deleted file mode 100644
index 352e4ce..0000000
--- a/src/client/elm/Utils/Date.elm
+++ /dev/null
@@ -1,39 +0,0 @@
-module Utils.Date exposing
-  ( monthToNum
-  , numToMonth
-  )
-
-import Date exposing (..)
-
-monthToNum : Month -> Int
-monthToNum month =
-  case month of
-    Jan -> 1
-    Feb -> 2
-    Mar -> 3
-    Apr -> 4
-    May -> 5
-    Jun -> 6
-    Jul -> 7
-    Aug -> 8
-    Sep -> 9
-    Oct -> 10
-    Nov -> 11
-    Dec -> 12
-
-numToMonth : Int -> Month
-numToMonth n =
-  case n of
-    1  -> Jan
-    2  -> Feb
-    3  -> Mar
-    4  -> Apr
-    5  -> May
-    6  -> Jun
-    7  -> Jul
-    8  -> Aug
-    9  -> Sep
-    10 -> Oct
-    11 -> Nov
-    12 -> Dec
-    _ -> Jan
diff --git a/src/client/elm/Utils/Http.elm b/src/client/elm/Utils/Http.elm
index 97db053..9bcfad7 100644
--- a/src/client/elm/Utils/Http.elm
+++ b/src/client/elm/Utils/Http.elm
@@ -1,5 +1,6 @@
 module Utils.Http exposing
   ( post
+  , postWithBody
   , delete
   , decodeHttpValue
   , errorKey
@@ -10,17 +11,20 @@ import Task exposing (..)
 import Json.Decode as Json exposing (Decoder)
 
 post : String -> Task Error Value
-post = request "POST"
+post url = postWithBody url empty
+
+postWithBody : String -> Body -> Task Error Value
+postWithBody = request "POST"
 
 delete : String -> Task Error Value
-delete = request "DELETE"
+delete url = request "DELETE" url empty
 
-request : String -> String -> Task Error Value
-request method url =
+request : String -> String -> Body -> Task Error Value
+request method url body =
   { verb = method
   , headers = []
   , url = url
-  , body = empty
+  , body = body
   }
     |> Http.send defaultSettings
     |> mapError promoteError