Remove GMEWrongWorkingDirectory constructor

This commit is contained in:
Daniel Gröber 2016-01-04 21:44:49 +01:00
parent d3c159821a
commit 73863e0b00
2 changed files with 0 additions and 7 deletions

View File

@ -104,11 +104,6 @@ gmeDoc e = case e of
GMETooManyCabalFiles cfs ->
text $ "Multiple cabal files found. Possible cabal files: \""
++ intercalate "\", \"" cfs ++"\"."
GMEWrongWorkingDirectory projdir cdir ->
(text $ "You must run ghc-mod in the project directory as returned by `ghc-mod root`.")
<+> text "Currently in:" <+> showDoc cdir
<> text "but should be in" <+> showDoc projdir
<> text "."
ghcExceptionDoc :: GhcException -> Doc
ghcExceptionDoc e@(CmdLineError _) =

View File

@ -347,8 +347,6 @@ data GhcModError
| GMETooManyCabalFiles [FilePath]
-- ^ Too many cabal files found.
| GMEWrongWorkingDirectory FilePath FilePath
deriving (Eq,Show,Typeable)
instance Error GhcModError where