Add elm-analyse file and fix a few warnings

elm-analyse.json

@@ -0,0 +1,5 @@
+{
+    "excludedPaths": [
+        "modules/webapp/target/elm-src"
+    ]
+}

modules/webapp/src/main/elm/Comp/ContactField.elm

@@ -31,13 +31,6 @@ emptyModel =
     , value = ""
     }
 
-makeModel: List Contact -> Model
-makeModel contacts =
-    let
-        em = emptyModel
-    in
-    { em | items = contacts }
-
 getContacts: Model -> List Contact
 getContacts model =
     List.filter (\c -> c.value /= "") model.items
@@ -108,13 +101,13 @@ view model =
                         ]
              ]
              [div [class "ui vertical secondary fluid menu"]
-                  (List.map (renderItem model) model.items)
+                  (List.map renderItem model.items)
              ]
         ]
 
 
-renderItem: Model -> Contact -> Html Msg
-renderItem model contact =
+renderItem: Contact -> Html Msg
+renderItem contact =
     div [class "link item", onClick (Select contact) ]
         [i [class "delete icon"][]
         ,div [class "ui blue label"]

modules/webapp/src/main/elm/Main.elm

@@ -18,7 +18,7 @@ import App.View exposing (..)
 
 -- MAIN
 
-
+main: Program Flags Model Msg
 main =
   Browser.application
     { init = init
@@ -42,7 +42,7 @@ init flags url key =
                    else (im, Page.goto page)
         sessionCheck =
             case m.flags.account of
-                Just acc -> Api.loginSession flags SessionCheckResp
+                Just _ -> Api.loginSession flags SessionCheckResp
                 Nothing -> Cmd.none
     in
         (m, Cmd.batch [ cmd, Ports.initElements(), Api.versionInfo flags VersionResp, sessionCheck ])

modules/webapp/src/main/elm/Page/CollectiveSettings/Update.elm

@@ -4,7 +4,6 @@ import Api
 import Api.Model.BasicResult exposing (BasicResult)
 import Page.CollectiveSettings.Data exposing (..)
 import Data.Flags exposing (Flags)
-import Data.Language
 import Comp.SourceManage
 import Comp.UserManage
 import Comp.Settings