refactor(src): Remove unused imports

src/Shift/Generate.hs

@@ -3,7 +3,7 @@ module Shift.Generate where
 import CMarkGFM (nodeToCommonmark)
 import Control.Monad.IO.Class (MonadIO (liftIO))
 import qualified Data.Text.IO as TIO
-import Shift.CLI (ShiftOptions (ShiftOptions))
+import Shift.CLI (ShiftOptions)
 import Shift.Git (renderToNode)
 
 runGenerate :: Maybe FilePath -> ShiftOptions -> IO ()

src/Shift/Git.hs

@@ -5,9 +5,8 @@
 
 module Shift.Git where
 
-import CMarkGFM (Node (Node), NodeType (DOCUMENT), nodeToCommonmark)
+import CMarkGFM (Node (Node), NodeType (DOCUMENT))
 import Control.Lens ((^.))
-import Control.Monad (void)
 import Control.Monad.Catch (throwM)
 import Control.Monad.Reader (runReaderT)
 import Control.Monad.State (runStateT)
@@ -34,7 +33,6 @@ import Data.Set as S (Set, toList)
 import Data.String.Conversions (cs)
 import Data.Text (Text)
 import qualified Data.Text as T
-import qualified Data.Text.IO as TIO
 import Data.Tuple (swap)
 import Data.Versions (versioning)
 import Data.Void (Void)
@@ -47,7 +45,6 @@ import Shift.Rendering (printReport)
 import Shift.Types
 import Shift.Utilities (orError, pairs)
 import System.Process (readCreateProcess, shell)
-import Text.Megaparsec (ParseError)
 import Text.Megaparsec.Error (ParseErrorBundle)
 
 parseTag :: RefName -> Either (ParseErrorBundle Text Void) TagRef

src/Shift/Processing.hs

@@ -31,7 +31,7 @@ import Shift.Types
     crStyles,
     crTests,
   )
-import Text.Megaparsec (ParseError, ParseErrorBundle, runParser)
+import Text.Megaparsec (ParseErrorBundle, runParser)
 
 parseCommit :: (Ref hash, Commit hash) -> Either (ParseErrorBundle Text Void) (ParsedGroup hash)
 parseCommit (r, c) = do

src/Shift/Rendering.hs

@@ -6,18 +6,16 @@ module Shift.Rendering where
 import CMarkGFM as M
 import Control.Lens ((^.))
 import Control.Monad.Catch (MonadThrow)
-import Control.Monad.IO.Class (MonadIO, liftIO)
+import Control.Monad.IO.Class (MonadIO)
 import Control.Monad.State (MonadState)
-import Control.Monad.Trans.Writer (WriterT (runWriterT), execWriterT, runWriter)
+import Control.Monad.Trans.Writer (execWriterT)
 import Control.Monad.Trans.Writer.Lazy (tell)
 import Data.Git (Commit, Ref, RefName (refNameRaw), commitAuthor)
 import Data.List (sortOn)
 import Data.Maybe (catMaybes)
-import Data.Monoid ((<>))
 import Data.String.Conversions (cs)
 import Data.Text (Text)
 import qualified Data.Text as T (pack, take)
-import qualified Data.Text.IO as TIO (putStr, putStrLn)
 import Data.Versions (prettyV)
 import Shift.Types
   ( ChangeReport,

src/Shift/Server.hs

@@ -3,7 +3,7 @@
 
 module Shift.Server (runServer) where
 
-import CMarkGFM (commonmarkToHtml, nodeToCommonmark, nodeToHtml)
+import CMarkGFM (nodeToCommonmark, nodeToHtml)
 import Control.Monad.IO.Class (MonadIO (liftIO))
 import Data.Maybe (fromMaybe)
 import Data.Text.Lazy (fromChunks)

src/Shift/Types.hs

@@ -35,7 +35,7 @@ import Data.String.Conversions (cs)
 import Data.Text (Text)
 import qualified Data.Vector as V
 import Data.Versions (Versioning)
-import GitHub (Request, URL (URL), executeRequestWithMgr, getUrl)
+import GitHub (Request, executeRequestWithMgr, getUrl)
 import GitHub.Auth (Auth)
 import GitHub.Data.Definitions (simpleUserLogin, simpleUserUrl)
 import GitHub.Data.GitData (commitAuthor)