Remove unused import in app-view, #76.

GlideAngle · Sep 23, 2018 · cc88d50 · cc88d50
1 parent 79187f2
commit cc88d50
Show file tree

Hide file tree

Showing 5 changed files with 8 additions and 31 deletions.
diff --git 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,21 +34,14 @@ import qualified FlareTiming.Map.Leaflet as L
     , circleAddToMap
     , polyline 
     , polylineAddToMap
-    , circleBounds
     , polylineBounds
-    , extendBounds
     , fitBounds
     )
 import Data.Flight.Types
     ( Task(..)
     , 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
@@ -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
@@ -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
@@ -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
@@ -1,7 +1,6 @@
 module FlareTiming.View (view) where
 
 import FlareTiming.Task (tasks)
-import FlareTiming.Comp (comps)
 
 import Reflex.Dom (MonadWidget)