Make it possible to log in

Author: bendiksolheim

frontend/Main.elm

@@ -15,12 +15,20 @@ import Thanks.Thanks as Thanks
 import Usetoken.View
 import Usetoken.Model
 import Usetoken.Update
+import Submissions.View
+import Submissions.Model
+import Submissions.Update
 import Nav.Requests exposing (getLoginCookie)
 
 
 initModel : Flags -> Page -> Model
 initModel flags page =
-    Model flags (Login.initModel flags) (Thanks.initModel) (Usetoken.Model.initModel flags "") page
+    Model flags
+        (Login.initModel flags)
+        (Thanks.initModel)
+        (Usetoken.Model.initModel flags "")
+        (Submissions.Model.initModel)
+        page
 
 
 init : Flags -> Navigation.Location -> ( Model, Cmd Msg )
@@ -65,6 +73,16 @@ update msg model =
             in
                 ( { model | usetoken = newUsetoken }, mappedCmd )
 
+        SubmissionsMsg submissionsMsg ->
+            let
+                ( newSubmissions, submissionsCmd ) =
+                    Submissions.Update.update submissionsMsg model.submissions
+
+                mappedCmd =
+                    Cmd.map SubmissionsMsg submissionsCmd
+            in
+                ( { model | submissions = newSubmissions }, mappedCmd )
+
 
 updatePage : Page -> Model -> ( Model, Cmd Msg )
 updatePage page m =
@@ -89,7 +107,7 @@ view model =
 
 pageView : Model -> Html Msg
 pageView model =
-    case Debug.log "page" model.page of
+    case model.page of
         Register ->
             map LoginMsg (Login.view model.login)
 
@@ -100,7 +118,7 @@ pageView model =
             map UsetokenMsg (Usetoken.View.view model.usetoken)
 
         Submissions ->
-            map UsetokenMsg (Usetoken.View.view model.usetoken)
+            map SubmissionsMsg (Submissions.View.view model.submissions)
 
 
 subscriptions : Model -> Sub Msg

frontend/src/Message.elm

@@ -3,6 +3,7 @@ module Message exposing (Msg(..))
 import Login.Message
 import Thanks.Thanks
 import Usetoken.Messages
+import Submissions.Messages
 import Nav.Model exposing (Page)
 
 
@@ -11,3 +12,4 @@ type Msg
     | LoginMsg Login.Message.Msg
     | ThanksMsg Thanks.Thanks.Msg
     | UsetokenMsg Usetoken.Messages.Msg
+    | SubmissionsMsg Submissions.Messages.Msg

frontend/src/Model.elm

@@ -4,6 +4,7 @@ import Login.Model as Login
 import Nav.Model exposing (Page(..))
 import Thanks.Thanks as Thanks
 import Usetoken.Model
+import Submissions.Model
 import Flags exposing (Flags)
 
 
@@ -12,5 +13,6 @@ type alias Model =
     , login : Login.Model
     , thanks : Thanks.Model
     , usetoken : Usetoken.Model.Model
+    , submissions : Submissions.Model.Model
     , page : Page
     }

frontend/src/Nav/Requests.elm

@@ -1,7 +1,6 @@
 module Nav.Requests exposing (getLoginCookie)
 
 import Http
-import Json.Decode exposing (string)
 import Usetoken.Messages
 
 
@@ -14,7 +13,15 @@ getLoginCookie baseUrl token =
                 ++ token
     in
         Http.send Usetoken.Messages.Get <|
-            Http.post cookieUrl Http.emptyBody string
+            Http.request
+                { method = "POST"
+                , headers = []
+                , url = cookieUrl
+                , body = Http.emptyBody
+                , expect = Http.expectString
+                , timeout = Nothing
+                , withCredentials = False
+                }
 
 
 url : List String -> String