Remove GMEWrongWorkingDirectory constructor
This commit is contained in:
parent
d3c159821a
commit
73863e0b00
@ -104,11 +104,6 @@ gmeDoc e = case e of
|
|||||||
GMETooManyCabalFiles cfs ->
|
GMETooManyCabalFiles cfs ->
|
||||||
text $ "Multiple cabal files found. Possible cabal files: \""
|
text $ "Multiple cabal files found. Possible cabal files: \""
|
||||||
++ intercalate "\", \"" cfs ++"\"."
|
++ 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 :: GhcException -> Doc
|
||||||
ghcExceptionDoc e@(CmdLineError _) =
|
ghcExceptionDoc e@(CmdLineError _) =
|
||||||
|
@ -347,8 +347,6 @@ data GhcModError
|
|||||||
| GMETooManyCabalFiles [FilePath]
|
| GMETooManyCabalFiles [FilePath]
|
||||||
-- ^ Too many cabal files found.
|
-- ^ Too many cabal files found.
|
||||||
|
|
||||||
| GMEWrongWorkingDirectory FilePath FilePath
|
|
||||||
|
|
||||||
deriving (Eq,Show,Typeable)
|
deriving (Eq,Show,Typeable)
|
||||||
|
|
||||||
instance Error GhcModError where
|
instance Error GhcModError where
|
||||||
|
Loading…
Reference in New Issue
Block a user