Skip to content

Commit 2752d7c

Browse files
committed
reformat
1 parent 25cf518 commit 2752d7c

File tree

1 file changed

+11
-8
lines changed

1 file changed

+11
-8
lines changed

src/Hie/Cabal/Parser.hs

Lines changed: 11 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -15,33 +15,36 @@ import Control.Monad
1515
import Data.Attoparsec.Text
1616
import Data.Char
1717
import Data.Foldable (asum)
18-
import Data.Maybe (maybeToList, catMaybes)
18+
import Data.Maybe (catMaybes,
19+
maybeToList)
1920
import Data.Text (Text)
2021
import qualified Data.Text as T
2122
import Data.Text.Encoding (encodeUtf8)
2223
import Distribution.ModuleName (ModuleName,
2324
toFilePath)
2425
import Distribution.Package (pkgName,
2526
unPackageName)
26-
import Distribution.PackageDescription (Benchmark (benchmarkBuildInfo, benchmarkName, benchmarkInterface),
27+
import Distribution.PackageDescription (Benchmark (benchmarkBuildInfo, benchmarkInterface, benchmarkName),
28+
BenchmarkInterface (BenchmarkExeV10),
2729
Executable (buildInfo, exeName, modulePath),
2830
ForeignLib (foreignLibBuildInfo, foreignLibName),
2931
Library (libBuildInfo, libName),
3032
LibraryName (..),
33+
TestSuiteInterface (TestSuiteExeV10),
3134
benchmarkModules,
3235
exeModules,
3336
explicitLibModules,
34-
foreignLibModules, TestSuiteInterface (TestSuiteExeV10), BenchmarkInterface (BenchmarkExeV10))
37+
foreignLibModules)
3538
import Distribution.PackageDescription.Configuration
3639
import Distribution.PackageDescription.Parsec
3740
import Distribution.Types.BuildInfo
3841
import Distribution.Types.PackageDescription
3942
import Distribution.Types.TestSuite
4043
import Distribution.Types.UnqualComponentName
4144
import Distribution.Utils.Path (getSymbolicPath)
42-
import System.FilePath ((</>), (<.>))
43-
import GHC.IO (unsafePerformIO)
44-
import System.Directory (doesFileExist)
45+
import GHC.IO (unsafePerformIO)
46+
import System.Directory (doesFileExist)
47+
import System.FilePath ((<.>), (</>))
4548

4649

4750
type Name = Text
@@ -172,12 +175,12 @@ extractPackage PackageDescription{..} = Package n cc where
172175
benchmarkExePath :: Benchmark -> [FilePath]
173176
benchmarkExePath b = case benchmarkInterface b of
174177
BenchmarkExeV10 _ f -> [f]
175-
_ -> []
178+
_ -> []
176179

177180
toFilePath' :: ModuleName -> [FilePath]
178181
toFilePath' mod = [ toFilePath mod <.> ext | ext <- ["hs", "lhs"]]
179182

180183
testExePath :: TestSuite -> [FilePath]
181184
testExePath t = case testInterface t of
182185
TestSuiteExeV10 _ fp -> [fp]
183-
_ -> []
186+
_ -> []

0 commit comments

Comments
 (0)