From cc88d50a734a546abb5dc9faf4321877a68abb23 Mon Sep 17 00:00:00 2001
From: Phil de Joux <philderbeast@gmail.com>
Date: Sun, 23 Sep 2018 14:09:17 -0400
Subject: [PATCH] Remove unused import in app-view, #76.

---
 app-view/comp-view/FlareTiming/Map.hs         | 14 ++------------
 app-view/comp-view/FlareTiming/Map/Leaflet.hs |  2 +-
 app-view/comp-view/FlareTiming/Task.hs        | 18 +++---------------
 app-view/comp-view/FlareTiming/Turnpoint.hs   |  4 ++--
 app-view/comp-view/FlareTiming/View.hs        |  1 -
 5 files changed, 8 insertions(+), 31 deletions(-)

diff --git a/app-view/comp-view/FlareTiming/Map.hs b/app-view/comp-view/FlareTiming/Map.hs
index f27368db2..0b9bad448 100644
--- a/app-view/comp-view/FlareTiming/Map.hs
+++ b/app-view/comp-view/FlareTiming/Map.hs
@@ -16,14 +16,11 @@ import Reflex.Dom
     , text
     )
 import Reflex.Time (delay)
-import Data.Monoid (mconcat)
-import Control.Monad (join, sequence)
+import Control.Monad (sequence)
 import Control.Monad.IO.Class (liftIO)
 
 import qualified FlareTiming.Map.Leaflet as L
-    ( Map(..)
-    , TileLayer(..)
-    , Marker(..)
+    ( Marker(..)
     , Circle(..)
     , map
     , mapSetView
@@ -37,9 +34,7 @@ import qualified FlareTiming.Map.Leaflet as L
     , circleAddToMap
     , polyline 
     , polylineAddToMap
-    , circleBounds
     , polylineBounds
-    , extendBounds
     , fitBounds
     )
 import Data.Flight.Types
@@ -47,11 +42,6 @@ import Data.Flight.Types
     , Turnpoint(..)
     , Latitude(..)
     , Longitude(..)
-    , Name
-    , Radius
-    , SpeedSection
-    , fromSci
-    , toSci
     )
 
 turnpoint :: Turnpoint -> IO (L.Marker, L.Circle)
diff --git a/app-view/comp-view/FlareTiming/Map/Leaflet.hs b/app-view/comp-view/FlareTiming/Map/Leaflet.hs
index 788957828..dc4ea08e5 100644
--- a/app-view/comp-view/FlareTiming/Map/Leaflet.hs
+++ b/app-view/comp-view/FlareTiming/Map/Leaflet.hs
@@ -26,7 +26,7 @@ module FlareTiming.Map.Leaflet
 
 import Prelude hiding (map, log)
 import GHCJS.Types (JSVal, JSString)
-import GHCJS.DOM.Element (IsElement(..))
+import GHCJS.DOM.Element (IsElement)
 import GHCJS.DOM.Types (Element(..), toElement, toJSString, toJSVal)
 
 -- SEE: https://gist.github.com/ali-abrar/fa2adbbb7ee64a0295cb
diff --git a/app-view/comp-view/FlareTiming/Task.hs b/app-view/comp-view/FlareTiming/Task.hs
index 27716c5da..76d1e349f 100644
--- a/app-view/comp-view/FlareTiming/Task.hs
+++ b/app-view/comp-view/FlareTiming/Task.hs
@@ -5,7 +5,6 @@
 module FlareTiming.Task (tasks) where
 
 import Prelude hiding (map)
-import Data.Maybe (isJust)
 import Reflex.Dom
     ( MonadWidget, Event, Dynamic, XhrRequest(..)
     , (=:)
@@ -26,26 +25,15 @@ import Reflex.Dom
     , decodeXhrResponse
     , leftmost
     )
-import qualified Data.Text as T (Text, pack)
+import qualified Data.Text as T (pack)
 import Data.Map (union)
 import Data.List (intercalate)
 
-import Data.Flight.Types
-    ( Task(..)
-    , Turnpoint(..)
-    , Latitude(..)
-    , Longitude(..)
-    , Name
-    , Radius
-    , SpeedSection
-    , fromSci
-    , toSci
-    , showRadius
-    )
+import Data.Flight.Types (Task(..), Turnpoint(..), SpeedSection)
 import FlareTiming.Map (map)
 import FlareTiming.NavBar (navbar)
 import FlareTiming.Footer (footer)
-import qualified FlareTiming.Turnpoint as TP (turnpoint, turnpointRadius, getName)
+import qualified FlareTiming.Turnpoint as TP (getName)
 
 loading :: MonadWidget t m => m ()
 loading = do
diff --git a/app-view/comp-view/FlareTiming/Turnpoint.hs b/app-view/comp-view/FlareTiming/Turnpoint.hs
index f924f545e..a2d083699 100644
--- a/app-view/comp-view/FlareTiming/Turnpoint.hs
+++ b/app-view/comp-view/FlareTiming/Turnpoint.hs
@@ -10,8 +10,8 @@ module FlareTiming.Turnpoint
     , getNameRadius
     ) where
 
-import Reflex.Dom (MonadWidget , Dynamic , el , dynText)
-import qualified Data.Text as T (Text, pack)
+import Reflex.Dom (MonadWidget, Dynamic, dynText)
+import qualified Data.Text as T (pack)
 
 import Data.Flight.Types (Turnpoint(..), showRadius)
 
diff --git a/app-view/comp-view/FlareTiming/View.hs b/app-view/comp-view/FlareTiming/View.hs
index c84124936..fb7ea6605 100644
--- a/app-view/comp-view/FlareTiming/View.hs
+++ b/app-view/comp-view/FlareTiming/View.hs
@@ -1,7 +1,6 @@
 module FlareTiming.View (view) where
 
 import FlareTiming.Task (tasks)
-import FlareTiming.Comp (comps)
 
 import Reflex.Dom (MonadWidget)