warning cleanup 3

Author: minimapletinytools

src/Potato/Flow/TutorialState.hs

@@ -7,14 +7,11 @@ import           Relude
 
 import           Potato.Flow
 import qualified Potato.Flow.Serialization.SnakeWrangler as Snake
+import           Potato.Flow.TestStates
 
-import           Data.ByteString
 import qualified Data.ByteString.Lazy as LBS
 import           Data.FileEmbed  (embedFile)
 
-import qualified Data.Text as T
-import qualified Data.Aeson as Aeson
-import           Potato.Flow.TestStates
 
 
 

src/Potato/Flow/Vty/Input.hs

@@ -8,15 +8,12 @@ module Potato.Flow.Vty.Input (
 import           Relude
 
 import           Potato.Flow
-import           Potato.Flow.Controller
 
 import qualified Graphics.Vty              as V
-import qualified Graphics.Vty.Input.Events as V
 import           Reflex
 import           Reflex.Vty
 
 import           Control.Monad.Fix
-import qualified Data.Text.Encoding        as T
 
 convertModifiers :: [V.Modifier] -> [KeyModifier]
 convertModifiers = fmap $ \case

src/Potato/Reflex/Vty/Host.hs

@@ -21,8 +21,7 @@ module Potato.Reflex.Vty.Host
 
 import Prelude
 
-import System.IO
-import Control.Concurrent (forkIO, killThread, MVar, newMVar, putMVar, readMVar, modifyMVar_)
+import Control.Concurrent (forkIO, killThread, MVar, newMVar, readMVar, modifyMVar_)
 import Control.Concurrent.Chan (newChan, readChan, writeChan)
 import Control.Exception (onException)
 import Control.Monad (forM, forM_, forever)
@@ -203,7 +202,7 @@ runVtyAppWithHandle vty vtyGuest = flip onException (V.shutdown vty) $
       modifyMVar_ chanSizeVar (return . (+1))
 
 
-    numFramesVar :: MVar Int <- liftIO $ newMVar 0
+    --numFramesVar :: MVar Int <- liftIO $ newMVar 0
 
     -- The main application loop. We wait for new events, fire those that
     -- have subscribers, and update the display. If we detect a shutdown