From c520af4983c366ce0e458edfb34fdfa456fa5e3f Mon Sep 17 00:00:00 2001
From: James Hillyerd <james@hillyerd.com>
Date: Sun, 29 Mar 2020 11:54:12 -0700
Subject: [PATCH] ui: Linter dead code elimination

---
 ui/src/Layout.elm       |  7 -------
 ui/src/Page/Mailbox.elm |  6 +-----
 ui/src/Page/Status.elm  | 19 +------------------
 3 files changed, 2 insertions(+), 30 deletions(-)

diff --git a/ui/src/Layout.elm b/ui/src/Layout.elm
index f1b220c..cb36952 100644
--- a/ui/src/Layout.elm
+++ b/ui/src/Layout.elm
@@ -249,13 +249,6 @@ navbarRecent page activeMailbox model session =
             else
                 session.persistent.recentMailboxes
 
-        dropdownExpanded =
-            if model.recentVisible then
-                "true"
-
-            else
-                "false"
-
         recentLink mailbox =
             a [ Route.href (Route.Mailbox mailbox) ] [ text mailbox ]
     in
diff --git a/ui/src/Page/Mailbox.elm b/ui/src/Page/Mailbox.elm
index 8579679..045cb87 100644
--- a/ui/src/Page/Mailbox.elm
+++ b/ui/src/Page/Mailbox.elm
@@ -160,7 +160,6 @@ type Msg
     = ListLoaded (Result HttpUtil.Error (List MessageHeader))
     | ClickMessage MessageID
     | ListKeyPress String Int
-    | OpenMessage MessageID
     | CloseMessage
     | MessageLoaded (Result HttpUtil.Error Message)
     | MessageBody Body
@@ -189,9 +188,6 @@ update msg model =
                 ]
             )
 
-        OpenMessage id ->
-            updateOpenMessage model id
-
         CloseMessage ->
             case model.state of
                 ShowingList list _ ->
@@ -372,7 +368,7 @@ updatePurge model =
                 ]
     in
     case model.state of
-        ShowingList list _ ->
+        ShowingList _ _ ->
             ( { model
                 | promptPurge = False
                 , session = Session.disableRouting model.session
diff --git a/ui/src/Page/Status.elm b/ui/src/Page/Status.elm
index 93d55de..f9ce81f 100644
--- a/ui/src/Page/Status.elm
+++ b/ui/src/Page/Status.elm
@@ -100,7 +100,7 @@ initDataSet =
 
 
 subscriptions : Model -> Sub Msg
-subscriptions model =
+subscriptions _ =
     Time.every (10 * 1000) Tick
 
 
@@ -419,23 +419,6 @@ viewMetric metric =
         ]
 
 
-viewLiveMetric : String -> (Int -> String) -> Int -> Html a -> Html a
-viewLiveMetric label formatter value graph =
-    div [ class "metric" ]
-        [ div [ class "label" ] [ text label ]
-        , div [ class "value" ] [ text (formatter value) ]
-        , div [ class "graph" ]
-            [ graph
-            , text "(10min)"
-            ]
-        ]
-
-
-graphNull : Html a
-graphNull =
-    div [] []
-
-
 graphSize : Spark.Size
 graphSize =
     { width = 180