remove redundant imports

4 files changed, 3 insertions, 20 deletions

diff --git a/Main.hs b/Main.hs
index 80a83c9..b951231 100644
--- a/Main.hs
+++ b/Main.hs
@@ -28,9 +28,8 @@ import           Control.Monad         (void, when)
 import           Data.Time.Clock.POSIX (getPOSIXTime, posixSecondsToUTCTime)
 import           Data.Time.Format      (defaultTimeLocale, formatTime,
                                         iso8601DateFormat)
-import           Lens.Micro            ((&), (.~), (^.))
-import           System.Directory      (getHomeDirectory,
-                                        removeDirectoryRecursive, renamePath,
+import           Lens.Micro            ((^.))
+import           System.Directory      (getHomeDirectory, renamePath,
                                         withCurrentDirectory)
 import           System.Exit           (ExitCode (..))
 import           System.FilePath       ((<.>), (</>))
diff --git a/Presets.hs b/Presets.hs
index 2390c3b..46c039f 100644
--- a/Presets.hs
+++ b/Presets.hs
@@ -26,7 +26,7 @@ along with sscan.  If not, see <http://www.gnu.org/licenses/>.
 module Presets (presets, lookupPreset) where
 
 import           Data.List    (find)
-import           Lens.Micro   ((&), (.~), (^.))
+import           Lens.Micro   ((^.))
 
 import           Types.Preset
 import           Types.State
diff --git a/Types/Preset.hs b/Types/Preset.hs
index 407db94..f74e936 100644
--- a/Types/Preset.hs
+++ b/Types/Preset.hs
@@ -23,8 +23,6 @@ along with sscan.  If not, see <http://www.gnu.org/licenses/>.
 
 module Types.Preset where
 
-import qualified Data.Text   as T
-
 import           Types.State
 
 type PresetToggleKey = Char
diff --git a/UI.hs b/UI.hs
index 7de5f0e..084458f 100644
--- a/UI.hs
+++ b/UI.hs
@@ -23,35 +23,21 @@ along with sscan.  If not, see <http://www.gnu.org/licenses/>.
 
 module UI (runTheApp) where
 
-import           Control.Concurrent     (forkFinally)
-import           Control.Monad          (void)
-import           Control.Monad.IO.Class (liftIO)
-import           Data.Monoid
-import qualified Data.Text              as T
 import qualified Graphics.Vty           as V
 import           Lens.Micro             ((&), (.~), (^.))
-import           System.Directory       (getHomeDirectory,
-                                         getTemporaryDirectory,
-                                         removeDirectoryRecursive)
-import           System.FilePath        ((</>))
-import           System.IO.Temp         (createTempDirectory)
 
 import           Brick.AttrMap
 import           Brick.Main
-import           Brick.Markup           (markup, (@?))
 import           Brick.Types
-import           Brick.Util             (fg, on)
 import           Brick.Widgets.Border   as B
 import           Brick.Widgets.Center   as C
 import           Brick.Widgets.Core
-import           Data.Text.Markup       ((@@))
 
 import           Brick.Widgets.DefnList
 import           Presets
 import           Types.Preset
 import           Types.State
 
-
 drawUI :: St -> [Widget ()]
 drawUI st = [ui]
   where