Skip to content

Commit 6bb1da8

Browse files
committed
Fix formatting
1 parent 6a98874 commit 6bb1da8

File tree

1 file changed

+4
-14
lines changed

1 file changed

+4
-14
lines changed

ghcide/session-loader/Development/IDE/Session.hs

Lines changed: 4 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -34,8 +34,8 @@ import Data.Aeson hiding (Error)
3434
import Data.Bifunctor
3535
import qualified Data.ByteString.Base16 as B16
3636
import qualified Data.ByteString.Char8 as B
37-
import Data.Default
3837
import Data.Char (isLower)
38+
import Data.Default
3939
import Data.Either.Extra
4040
import Data.Function
4141
import Data.Hashable
@@ -943,7 +943,7 @@ renderCradleError cradle nfp (CradleError _ _ec ms) =
943943

944944
-- | Information included in Multi Cradle error messages
945945
data MultiCradleErr = MultiCradleErr
946-
{ mcPwd :: FilePath
946+
{ mcPwd :: FilePath
947947
, mcFilePath :: FilePath
948948
, mcPrefixes :: [(FilePath, String)]
949949
} deriving (Show)
@@ -978,15 +978,10 @@ parseMultiCradleErr ms = do
978978
guard (listToMaybe (reverse s) == Just end)
979979
pure $ drop 1 $ take (length s - 1) s
980980

981-
982-
983-
984-
985-
986981
multiCradleErrMessage :: MultiCradleErr -> [String]
987982
multiCradleErrMessage e =
988-
[ "Loading the module '" <> moduleFileName <> "' failed. It seems that it is not listed in your .cabal file!"
989-
, "Perhaps you need to add `"<> moduleName <> "` to other-modules or exposed-modules" -- named 'example' in example.cabal."
983+
[ "Loading the module '" <> moduleFileName <> "' failed. It may not be listed in your .cabal file!"
984+
, "Perhaps you need to add `"<> moduleName <> "` to other-modules or exposed-modules."
990985
, "For more information, visit: https://cabal.readthedocs.io/en/3.4/developing-packages.html#modules-included-in-the-package"
991986
, ""
992987
] <> map prefix (mcPrefixes e)
@@ -997,11 +992,6 @@ multiCradleErrMessage e =
997992
isSourceFolder p = all isLower $ take 1 p
998993
prefix (f, r) = f <> " - " <> r
999994

1000-
1001-
1002-
1003-
1004-
1005995
-- See Note [Multi Cradle Dependency Info]
1006996
type DependencyInfo = Map.Map FilePath (Maybe UTCTime)
1007997
type HieMap = Map.Map (Maybe FilePath) (HscEnv, [RawComponentInfo])

0 commit comments

Comments
 (0)