Fix elm-analyse issues

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

@@ -13,7 +13,7 @@ import Comp.PasswordInput
 import Data.Flags exposing (Flags)
 import Html exposing (..)
 import Html.Attributes exposing (..)
-import Html.Events exposing (onClick, onInput)
+import Html.Events exposing (onClick)
 import Http
 import Util.Http
 

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

@@ -16,7 +16,7 @@ module Comp.DatePicker exposing
 import Date exposing (Date)
 import DatePicker exposing (DateEvent, DatePicker, Settings)
 import Html exposing (Html)
-import Time exposing (Month(..), Posix, Zone, utc)
+import Time exposing (Month(..), utc)
 
 
 type alias Msg =

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

@@ -278,15 +278,6 @@ selectActive model =
             model
 
 
-clearActive : Model a -> Model a
-clearActive model =
-    { model | available = List.map (\e -> { e | active = False }) model.available }
-
-
-
--- TODO enhance update function to return this info
-
-
 isDropdownChangeMsg : Msg a -> Bool
 isDropdownChangeMsg cm =
     case cm of

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

@@ -149,8 +149,8 @@ view values model =
                     ]
                     [ text model.input
                     ]
+               , renderMenu model
                ]
-            ++ [ renderMenu model ]
         )
 
 

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

@@ -9,7 +9,7 @@ module Comp.EmailSettingsManage exposing
 
 import Api
 import Api.Model.BasicResult exposing (BasicResult)
-import Api.Model.EmailSettings exposing (EmailSettings)
+import Api.Model.EmailSettings
 import Api.Model.EmailSettingsList exposing (EmailSettingsList)
 import Comp.EmailSettingsForm
 import Comp.EmailSettingsTable

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

@@ -44,7 +44,7 @@ type Msg
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
-update flags msg model =
+update _ msg model =
     case msg of
         SetEquipment t ->
             ( { model | equipment = t, name = t.name }, Cmd.none )

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

@@ -33,7 +33,7 @@ type Msg
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
-update flags msg model =
+update _ msg model =
     case msg of
         SetEquipments list ->
             ( { model | equips = list, selected = Nothing }, Cmd.none )

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

@@ -818,7 +818,7 @@ update key flags next msg model =
             in
             ( { model | sentMails = sm }, Cmd.none )
 
-        SentMailsResp (Err err) ->
+        SentMailsResp (Err _) ->
             ( model, Cmd.none )
 
 

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

@@ -65,7 +65,7 @@ openAllGroups model =
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg, Maybe ItemLight )
-update flags msg model =
+update _ msg model =
     case msg of
         SetResults list ->
             let
@@ -209,7 +209,7 @@ renderItemTable model items =
 
 
 renderItemLine : Model -> ItemLight -> Html Msg
-renderItemLine model item =
+renderItemLine _ item =
     let
         dirIcon =
             i [ class (Data.Direction.iconFromMaybe item.direction) ] []

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

@@ -108,7 +108,7 @@ update flags msg model =
         ConnMsg m ->
             let
                 ( cm, _ ) =
-                    --TODO dropdown doesn't use cmd!!
+                    -- dropdown doesn't use cmd!!
                     Comp.Dropdown.update m model.connectionModel
             in
             ( { model | connectionModel = cm }, Cmd.none, FormNone )

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

@@ -35,7 +35,7 @@ type Msg
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
-update flags msg model =
+update _ msg model =
     case msg of
         SetOrgs list ->
             ( { model | equips = list, selected = Nothing }, Cmd.none )

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

@@ -35,7 +35,7 @@ type Msg
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
-update flags msg model =
+update _ msg model =
     case msg of
         SetPersons list ->
             ( { model | equips = list, selected = Nothing }, Cmd.none )

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

@@ -1,4 +1,12 @@
-module Comp.SentMails exposing (..)
+module Comp.SentMails exposing
+    ( Model
+    , Msg
+    , init
+    , initMails
+    , isEmpty
+    , update
+    , view
+    )
 
 import Api.Model.SentMail exposing (SentMail)
 import Html exposing (..)

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

@@ -58,7 +58,7 @@ type Msg
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg, Maybe CollectiveSettings )
-update flags msg model =
+update _ msg model =
     case msg of
         LangDropdownMsg m ->
             let

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

@@ -74,7 +74,7 @@ type Msg
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
-update flags msg model =
+update _ msg model =
     case msg of
         SetSource t ->
             let

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

@@ -34,7 +34,7 @@ type Msg
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
-update flags msg model =
+update _ msg model =
     case msg of
         SetSources list ->
             ( { model | sources = list, selected = Nothing }, Cmd.none )

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

@@ -47,7 +47,7 @@ type Msg
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
-update flags msg model =
+update _ msg model =
     case msg of
         SetTag t ->
             ( { model | tag = t, name = t.name, category = t.category }, Cmd.none )

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

@@ -33,7 +33,7 @@ type Msg
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
-update flags msg model =
+update _ msg model =
     case msg of
         SetTags list ->
             ( { model | tags = list, selected = Nothing }, Cmd.none )

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

@@ -91,7 +91,7 @@ type Msg
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
-update flags msg model =
+update _ msg model =
     case msg of
         SetUser t ->
             let

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

@@ -34,7 +34,7 @@ type Msg
 
 
 update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
-update flags msg model =
+update _ msg model =
     case msg of
         SetUsers list ->
             ( { model | users = list, selected = Nothing }, Cmd.none )