hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Prepare for splitting off ghc-mod-core eventually

Browse Source
This commit is contained in:
Daniel Gröber
2017-01-12 16:36:47 +01:00
parent 8a8ffa18ec
commit ee55da4908
71 changed files with 99 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/GHCMod.hs
View File

@@ -7,21 +7,23 @@ import Control.Monad
import Data.Typeable (Typeable)
import Data.List
import Data.List.Split
import Exception
import Language.Haskell.GhcMod
import Language.Haskell.GhcMod.Internal hiding (MonadIO,liftIO)
import Language.Haskell.GhcMod.Types
import Language.Haskell.GhcMod.Monad
import Language.Haskell.GhcMod.Find
import Language.Haskell.GhcMod.Pretty
import System.FilePath ((</>))
import System.Directory (setCurrentDirectory, getAppUserDataDirectory,
removeDirectoryRecursive)
import System.IO
import System.Exit
import GHCMod.Options
import Prelude
import GHCMod.Options
import GhcMod
import GhcMod.Find
import GhcMod.Internal hiding (MonadIO,liftIO)
import Language.Haskell.GhcMod.Monad
import Language.Haskell.GhcMod.Types
import Exception
handler :: IOish m => GhcModT m a -> GhcModT m a
handler = flip gcatches
[ GHandler $ \(e :: ExitCode) -> throw e

6
src/GHCMod/Options.hs
View File

@@ -24,12 +24,13 @@ module GHCMod.Options (
import Options.Applicative
import Options.Applicative.Types
import Language.Haskell.GhcMod.Types
import GHCMod.Options.Commands
import GHCMod.Options.ShellParse
import GHCMod.Version
import Language.Haskell.GhcMod.Options.DocUtils
import Language.Haskell.GhcMod.Options.Options
import GHCMod.Options.ShellParse
import Language.Haskell.GhcMod.Types
parseArgs :: IO (Options, GhcModCommands)
parseArgs =
@@ -69,4 +70,3 @@ helpVersion =
argAndCmdSpec :: Parser (Options, GhcModCommands)
argAndCmdSpec = (,) <$> globalArgSpec <*> commandsSpec