Address more elm-analyse warnings.

Author: dillonkearns

elm-analyse.json

@@ -0,0 +1,5 @@
+{
+  "checks": {
+    "UnusedImportAlias": false
+  }
+}

src/Analytics.elm

@@ -12,7 +12,11 @@ import Setup.ScreenState as ScreenState exposing (ScreenState)
 
 
 type alias Event =
-    { category : String, action : String, label : Maybe String, value : Maybe Int }
+    { category : String
+    , action : String
+    , label : Maybe String
+    , value : Maybe Int
+    }
 
 
 trackEvent : Event -> ( model, Cmd Msg ) -> ( model, Cmd Msg )
@@ -60,13 +64,13 @@ operationToEvent mobsterOperation =
         MobsterOperation.RotateIn index ->
             { category = "roster", action = "rotate-in", label = Nothing, value = Just index }
 
-        MobsterOperation.Add string ->
+        MobsterOperation.Add _ ->
             { category = "roster", action = "add", label = Nothing, value = Nothing }
 
-        MobsterOperation.Reorder mobsterList ->
+        MobsterOperation.Reorder _ ->
             { category = "roster", action = "reorder", label = Nothing, value = Nothing }
 
-        MobsterOperation.CompleteGoal mobsterIndex role goalIndex ->
+        MobsterOperation.CompleteGoal _ role goalIndex ->
             { category = "roster"
             , action = "complete-goal"
             , label = Just (toString role ++ "[" ++ toString goalIndex ++ "]")

src/Bootstrap.elm

@@ -1,10 +1,10 @@
-module Bootstrap exposing (Color(..), navbarButton, smallButton)
+module Bootstrap exposing (Color(Danger, Primary, Success, Warning), navbarButton, smallButton)
 
-import FA exposing (Icon)
-import Html exposing (..)
+import FA
+import Html exposing (Attribute, Html, button, span, text)
 import Html.Attributes as Attr
-import Html.Events exposing (..)
-import StylesheetHelper exposing (CssClasses(..), class, classList, id)
+import Html.Events exposing (onClick)
+import StylesheetHelper exposing (class)
 
 
 type Color
@@ -28,7 +28,7 @@ navbarButton textContent clickMsg color faIcon =
             else
                 "fa fa-" ++ faIcon
     in
-    button [ noTab, onClick clickMsg, Attr.class ("btn " ++ btnColorClass color ++ " btn-sm navbar-btn"), class [ BufferRight ] ]
+    button [ noTab, onClick clickMsg, Attr.class ("btn " ++ btnColorClass color ++ " btn-sm navbar-btn"), class [ StylesheetHelper.BufferRight ] ]
         [ text textContent
         , span [ Attr.class faIconClass ] []
         ]
@@ -40,9 +40,9 @@ smallButton textContent clickMsg color faIcon =
         [ onClick clickMsg
         , noTab
         , Attr.class ("btn " ++ btnColorClass color ++ " btn-sm")
-        , class [ BufferRight ]
+        , class [ StylesheetHelper.BufferRight ]
         ]
-        [ span [ class [ BufferRight ] ] [ text textContent ]
+        [ span [ class [ StylesheetHelper.BufferRight ] ] [ text textContent ]
         , span [ Attr.class (FA.iconClass faIcon) ] []
         ]
 

src/Break.elm

@@ -1,12 +1,4 @@
-module Break exposing (..)
-
-
-timersBeforeNext : Int -> Int -> Int
-timersBeforeNext timersSinceBreak timersPerBreak =
-    if timersSinceBreak >= timersPerBreak then
-        0
-    else
-        timersPerBreak - timersSinceBreak
+module Break exposing (breakSuggested, breaksTurnedOn)
 
 
 breakSuggested : Int -> Int -> Bool

src/Dice.elm

@@ -11,7 +11,9 @@ animateRoll model =
     { model | dieStyle = Animation.interrupt [ rollAnimation ] model.dieStyle }
 
 
-animateActiveMobstersShuffle : { a | activeMobstersStyle : Animation.Messenger.State Setup.Msg.Msg } -> { a | activeMobstersStyle : Animation.Messenger.State Setup.Msg.Msg }
+animateActiveMobstersShuffle :
+    { a | activeMobstersStyle : Animation.Messenger.State Setup.Msg.Msg }
+    -> { a | activeMobstersStyle : Animation.Messenger.State Setup.Msg.Msg }
 animateActiveMobstersShuffle model =
     { model
         | activeMobstersStyle =

src/FA.elm

@@ -1,4 +1,4 @@
-module FA exposing (Icon(..), iconClass)
+module FA exposing (Icon(Gamepad, Github), iconClass)
 
 
 type Icon

src/IpcSerializer.elm

@@ -41,4 +41,4 @@ serialize msg =
             ( "TrackEvent", value )
 
         TrackPage string ->
-            ( "TrackPage", Encode.string string )
+            ( "TrackPage", Encode.string string )