haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-09 12:57:30 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Stylish Haskell

Browse Source
This commit is contained in:
Michael Snoyman 2012-12-05 10:50:51 +02:00
parent 594c88e0a8
commit ddd44dbb0e
7 changed files with 58 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Stackage/Build.hs
View File

@ -4,24 +4,28 @@ module Stackage.Build
, BuildSettings (..) , BuildSettings (..)
) where ) where
import Distribution.Text (simpleParse) import Control.Exception (assert)
import Control.Monad (unless, when) import Control.Monad (unless, when)
import Stackage.Types import qualified Data.Map as Map
import Data.Set (empty)
import qualified Data.Set as Set
import Distribution.Text (simpleParse)
import Distribution.Version (thisVersion, withinRange)
import Stackage.CheckPlan import Stackage.CheckPlan
import Stackage.Config
import Stackage.InstallInfo import Stackage.InstallInfo
import Stackage.Tarballs import Stackage.Tarballs
import Stackage.Test import Stackage.Test
import Stackage.Types
import Stackage.Util import Stackage.Util
import Stackage.Config import System.Directory (canonicalizePath,
createDirectoryIfMissing,
doesDirectoryExist)
import System.Exit (ExitCode (ExitSuccess), exitWith) import System.Exit (ExitCode (ExitSuccess), exitWith)
import System.IO (IOMode (WriteMode), withBinaryFile, hPutStrLn) import System.IO (IOMode (WriteMode), hPutStrLn,
import System.Process (runProcess, waitForProcess, rawSystem, readProcess) withBinaryFile)
import System.Directory (createDirectoryIfMissing, canonicalizePath, doesDirectoryExist) import System.Process (rawSystem, readProcess, runProcess,
import Distribution.Version (thisVersion, withinRange) waitForProcess)
import Control.Exception (assert)
import Data.Set (empty)
import qualified Data.Map as Map
import qualified Data.Set as Set
defaultBuildSettings :: BuildSettings defaultBuildSettings :: BuildSettings
defaultBuildSettings = BuildSettings defaultBuildSettings = BuildSettings

2
Stackage/InstallInfo.hs
View File

@ -5,13 +5,13 @@ module Stackage.InstallInfo
import qualified Data.Map as Map import qualified Data.Map as Map
import qualified Data.Set as Set import qualified Data.Set as Set
import Data.Version (showVersion)
import Stackage.Config import Stackage.Config
import Stackage.HaskellPlatform import Stackage.HaskellPlatform
import Stackage.LoadDatabase import Stackage.LoadDatabase
import Stackage.NarrowDatabase import Stackage.NarrowDatabase
import Stackage.Types import Stackage.Types
import Stackage.Util import Stackage.Util
import Data.Version (showVersion)
dropExcluded :: BuildSettings dropExcluded :: BuildSettings
-> Map PackageName (VersionRange, Maintainer) -> Map PackageName (VersionRange, Maintainer)

26
Stackage/LoadDatabase.hs
View File

@ -4,24 +4,36 @@ import qualified Codec.Archive.Tar as Tar
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Lazy.Char8 as L8 import qualified Data.ByteString.Lazy.Char8 as L8
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.Maybe (mapMaybe)
import Data.Monoid (Monoid (..)) import Data.Monoid (Monoid (..))
import Data.Set (member) import Data.Set (member)
import qualified Data.Set as Set import qualified Data.Set as Set
import Distribution.Compiler (CompilerFlavor (GHC))
import Distribution.Package (Dependency (Dependency)) import Distribution.Package (Dependency (Dependency))
import Distribution.PackageDescription (condExecutables, import Distribution.PackageDescription (Condition (..),
ConfVar (..),
allBuildInfo,
benchmarkBuildInfo,
buildInfo, buildTools,
condBenchmarks,
condExecutables,
condLibrary, condLibrary,
condTestSuites, condTestSuites,
condBenchmarks, condTreeComponents,
condTreeConstraints, condTreeComponents, ConfVar (..), Condition(..), flagName, flagDefault, genPackageFlags, allBuildInfo, packageDescription, buildTools, libBuildInfo, condTreeData, buildInfo, testBuildInfo, benchmarkBuildInfo) condTreeConstraints,
condTreeData,
flagDefault, flagName,
genPackageFlags,
libBuildInfo,
packageDescription,
testBuildInfo)
import Distribution.PackageDescription.Parse (ParseResult (ParseOk), import Distribution.PackageDescription.Parse (ParseResult (ParseOk),
parsePackageDescription) parsePackageDescription)
import Distribution.System (buildArch, buildOS)
import Distribution.Version (withinRange) import Distribution.Version (withinRange)
import Stackage.Config
import Stackage.Types import Stackage.Types
import Stackage.Util import Stackage.Util
import Stackage.Config
import Data.Maybe (mapMaybe)
import Distribution.System (buildOS, buildArch)
import Distribution.Compiler (CompilerFlavor (GHC))
-- | Load the raw package database. -- | Load the raw package database.
-- --

7
Stackage/Test.hs
View File

@ -3,21 +3,22 @@ module Stackage.Test
( runTestSuites ( runTestSuites
) where ) where
import Control.Exception (Exception, handle, throwIO)
import Control.Monad (foldM, unless, when) import Control.Monad (foldM, unless, when)
import qualified Data.Map as Map import qualified Data.Map as Map
import qualified Data.Set as Set import qualified Data.Set as Set
import Data.Typeable (Typeable)
import Stackage.Config import Stackage.Config
import Stackage.Types import Stackage.Types
import Stackage.Util import Stackage.Util
import System.Directory (createDirectory, removeFile, canonicalizePath) import System.Directory (canonicalizePath, createDirectory,
removeFile)
import System.Environment (getEnvironment) import System.Environment (getEnvironment)
import System.Exit (ExitCode (ExitSuccess)) import System.Exit (ExitCode (ExitSuccess))
import System.FilePath ((<.>), (</>)) import System.FilePath ((<.>), (</>))
import System.IO (IOMode (WriteMode, AppendMode), import System.IO (IOMode (WriteMode, AppendMode),
withBinaryFile) withBinaryFile)
import System.Process (runProcess, waitForProcess) import System.Process (runProcess, waitForProcess)
import Control.Exception (handle, Exception, throwIO)
import Data.Typeable (Typeable)
runTestSuites :: BuildSettings -> InstallInfo -> IO () runTestSuites :: BuildSettings -> InstallInfo -> IO ()
runTestSuites settings ii = do runTestSuites settings ii = do

2
Stackage/Util.hs
View File

@ -14,8 +14,8 @@ import Stackage.Types
import System.Directory (doesDirectoryExist, import System.Directory (doesDirectoryExist,
removeDirectoryRecursive) removeDirectoryRecursive)
import System.Directory (getAppUserDataDirectory) import System.Directory (getAppUserDataDirectory)
import System.FilePath ((</>))
import System.Environment (getEnvironment) import System.Environment (getEnvironment)
import System.FilePath ((</>))
identsToRanges :: Set PackageIdentifier -> Map PackageName (VersionRange, Maintainer) identsToRanges :: Set PackageIdentifier -> Map PackageName (VersionRange, Maintainer)
identsToRanges = identsToRanges =