Refactor: move GhciOpts to its own module

Author: mpilgrem

package.yaml

@@ -319,6 +319,7 @@ library:
   - Stack.Types.GhcOptions
   - Stack.Types.GhcPkgExe
   - Stack.Types.GhcPkgId
+  - Stack.Types.GhciOpts
   - Stack.Types.GlobalOpts
   - Stack.Types.GlobalOptsMonoid
   - Stack.Types.HpcReportOpts

src/Stack/Ghci.hs

@@ -80,6 +80,7 @@ import           Stack.Types.EnvConfig
                    , shaPathForBytes
                    )
 import           Stack.Types.EnvSettings ( defaultEnvSettings )
+import           Stack.Types.GhciOpts ( GhciOpts (..) )
 import           Stack.Types.Installed ( InstallMap, InstalledMap )
 import           Stack.Types.NamedComponent
                    ( NamedComponent (..), isCLib, isCSubLib, renderComponentTo
@@ -154,24 +155,6 @@ instance Pretty GhciPrettyException where
 
 instance Exception GhciPrettyException
 
--- | Typre respresenting command line options for the @stack ghci@ and
--- @stack repl@ commands.
-data GhciOpts = GhciOpts
-  { targets            :: ![Text]
-  , args               :: ![String]
-  , ghcOptions         :: ![String]
-  , flags              :: !(Map ApplyCLIFlag (Map FlagName Bool))
-  , ghcCommand         :: !(Maybe FilePath)
-  , noLoadModules      :: !Bool
-  , additionalPackages :: ![String]
-  , mainIs             :: !(Maybe Text)
-  , loadLocalDeps      :: !Bool
-  , hidePackages       :: !(Maybe Bool)
-  , noBuild            :: !Bool
-  , onlyMain           :: !Bool
-  }
-  deriving Show
-
 -- | Type representing information required to load a package or its components.
 --
 -- NOTE: GhciPkgInfo has paths as list instead of a Set to preserve files order

src/Stack/Options/GhciParser.hs

@@ -3,7 +3,10 @@
 
 {-|
 Module      : Stack.Options.GhciParser
+Description : Parse arguments for Stack's @ghci@ and @repl@ commands.
 License     : BSD-3-Clause
+
+Function to parse arguments for Stack's @ghci@ and @repl@ commands.
 -}
 
 module Stack.Options.GhciParser
@@ -19,13 +22,13 @@ import           Options.Applicative.Builder.Extra
                    ( boolFlags, boolFlagsNoDefault, fileExtCompleter
                    , textArgument, textOption
                    )
-import           Stack.Ghci ( GhciOpts (..) )
 import           Stack.Options.Completion ( ghcOptsCompleter, targetCompleter )
 import           Stack.Options.FlagsParser ( flagsParser )
 import           Stack.Options.PackagesParser ( packagesParser )
 import           Stack.Prelude
+import           Stack.Types.GhciOpts ( GhciOpts (..) )
 
--- | Parser for GHCI options
+-- | Parse command line arguments for Stack's @ghci@ and @repl@ commands.
 ghciOptsParser :: Parser GhciOpts
 ghciOptsParser = GhciOpts
   <$> many (textArgument

src/Stack/Types/GhciOpts.hs

@@ -0,0 +1,35 @@
+{-# LANGUAGE NoImplicitPrelude     #-}
+{-# LANGUAGE NoFieldSelectors      #-}
+
+{-|
+Module      : Stack.Types.GhciOpts
+Description : Types related to Stack's @ghci@ and @repl@ commands.
+License     : BSD-3-Clause
+
+Types related to Stack's @ghci@ and @repl@ commands.
+-}
+
+module Stack.Types.GhciOpts
+  ( GhciOpts (..)
+  ) where
+
+import           Stack.Prelude
+import           Stack.Types.BuildOptsCLI ( ApplyCLIFlag (..) )
+
+-- | Type respresenting command line options for Stack's @ghci@ and @repl@
+-- commands.
+data GhciOpts = GhciOpts
+  { targets            :: ![Text]
+  , args               :: ![String]
+  , ghcOptions         :: ![String]
+  , flags              :: !(Map ApplyCLIFlag (Map FlagName Bool))
+  , ghcCommand         :: !(Maybe FilePath)
+  , noLoadModules      :: !Bool
+  , additionalPackages :: ![String]
+  , mainIs             :: !(Maybe Text)
+  , loadLocalDeps      :: !Bool
+  , hidePackages       :: !(Maybe Bool)
+  , noBuild            :: !Bool
+  , onlyMain           :: !Bool
+  }
+  deriving Show

stack.cabal

@@ -355,6 +355,7 @@ library
       Stack.Types.GhcOptions
       Stack.Types.GhcPkgExe
       Stack.Types.GhcPkgId
+      Stack.Types.GhciOpts
       Stack.Types.GlobalOpts
       Stack.Types.GlobalOptsMonoid
       Stack.Types.HpcReportOpts