moves last server API logic inside its own module

src/Api.elm

@@ -186,35 +186,52 @@ undoLastAction id = Http.request
             , tracker = Nothing
             }
 
-sendRequest : ViewMode -> String -> E.Value -> Cmd Msg
-sendRequest mode id payload =
-            let
-                (endpoint, method) = case mode of
-                    Modes.Add ->
-                        ( "http://localhost:8088/api/players/" ++ id ++ "/loot"
-                        , "POST"
-                        )
-                    Modes.Buy ->
-                        ( "http://localhost:8088/api/players/" ++ id ++ "/loot"
-                        , "PUT"
-                        )
-                    Modes.Sell ->
-                        ( "http://localhost:8088/api/players/" ++ id ++ "/loot"
-                        , "DELETE"
-                        )
-                    Modes.Grab ->
-                        ( "http://localhost:8088/api/players/" ++ id ++ "/claims"
-                        , "POST")
-            in
-            Http.request
-                { method = method
-                , headers = []
-                , url = endpoint
-                , body = Http.jsonBody payload
-                , expect = Http.expectJson GotActionResult apiResponseDecoder
-                , timeout = Nothing
-                , tracker = Nothing
-                }
+buildPayload : ViewMode -> List Item -> E.Value
+buildPayload mode items =
+        case mode of
+            Modes.Buy -> E.object
+                   [ ( "items", items |> E.list (\i -> E.list identity [E.int i.id, E.null]))
+                   , ("global_mod", E.null )
+                   ]
+            Modes.Sell -> E.object
+                   [ ( "items", items |> E.list (\i -> E.list identity [E.int i.id, E.null]))
+                   , ("global_mod", E.null )
+                   ]
+            Modes.Grab ->  E.object
+                   [ ( "items", items |> E.list (\i -> E.int i.id))
+                   , ("global_mod", E.null )
+                   ]
+            Modes.Add -> E.object
+                   [ ( "items", items |> E.list (\i -> E.int i.id))
+                   , ("global_mod", E.null )
+                   ]
+
+sendRequest : ViewMode -> String -> List Item -> Cmd Msg
+sendRequest mode id items =
+    let
+        (endpoint, method) = case mode of
+            Modes.Add ->
+                ( "http://localhost:8088/api/players/" ++ id ++ "/loot"
+                , "POST" )
+            Modes.Buy ->
+                ( "http://localhost:8088/api/players/" ++ id ++ "/loot"
+                , "PUT" )
+            Modes.Sell ->
+                ( "http://localhost:8088/api/players/" ++ id ++ "/loot"
+                , "DELETE" )
+            Modes.Grab ->
+                ( "http://localhost:8088/api/players/" ++ id ++ "/claims"
+                , "POST" )
+    in
+    Http.request
+        { method = method
+        , headers = []
+        , url = endpoint
+        , body = Http.jsonBody <| buildPayload mode items
+        , expect = Http.expectJson GotActionResult apiResponseDecoder
+        , timeout = Nothing
+        , tracker = Nothing
+        }
 
 
 

src/Main.elm

@@ -205,8 +205,18 @@ update msg model =
             case model.state.activeMode of
                 Nothing ->
                     update (ModeSwitched Nothing) model
+
                 Just mode ->
-                    (model, Cmd.map ApiMsg <| Api.sendRequest mode (String.fromInt model.player.id) (buildPayload mode model))
+                    let items = targetItemsFor mode model
+                                |> List.filter (itemInSelection model.state.selection)
+                    in
+                    ( model
+                    , Cmd.map ApiMsg
+                        <| Api.sendRequest
+                            mode
+                            (String.fromInt model.player.id)
+                            items
+                    )
 
         UndoLastAction ->
             (model, Cmd.map ApiMsg <| Api.undoLastAction model.player.id)
@@ -226,30 +236,6 @@ targetItemsFor mode model =
         Modes.Sell ->Maybe.withDefault [] model.loot
         Modes.Grab -> Maybe.withDefault [] model.groupLoot
 
-buildPayload : ViewMode -> Model -> E.Value
-buildPayload mode model =
-    let
-        items = targetItemsFor mode model
-                |> List.filter (itemInSelection model.state.selection)
-    in
-        case mode of
-            Modes.Buy -> E.object
-                   [ ( "items", items |> E.list (\i -> E.list identity [E.int i.id, E.null]))
-                   , ("global_mod", E.null )
-                   ]
-            Modes.Sell -> E.object
-                   [ ( "items", items |> E.list (\i -> E.list identity [E.int i.id, E.null]))
-                   , ("global_mod", E.null )
-                   ]
-            Modes.Grab ->  E.object
-                   [ ( "items", items |> E.list (\i -> E.int i.id))
-                   , ("global_mod", E.null )
-                   ]
-            Modes.Add -> E.object
-                   [ ( "items", items |> E.list (\i -> E.int i.id))
-                   , ("global_mod", E.null )
-                   ]
-
 -- DbUpdates always refer to the active player's loot
 applyUpdate : Api.Update -> Model -> Model
 applyUpdate u model =