haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-09-03 07:33:49 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Stylish Haskell

Browse Source
This commit is contained in:
Michael Snoyman 2013-01-28 14:48:04 +02:00
parent b41130b7d2
commit 6ba5db21b7
10 changed files with 83 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Stackage/Build.hs
View File

@ -6,6 +6,7 @@ module Stackage.Build
import Control.Monad (unless)
import Prelude hiding (pi)
import Stackage.CheckCabalVersion (checkCabalVersion)
import Stackage.Config
import Stackage.InstallInfo
import Stackage.Types
@ -15,7 +16,6 @@ import System.IO (IOMode (WriteMode), hPutStrLn,
withBinaryFile)
import System.Process (rawSystem, runProcess,
waitForProcess)
import Stackage.CheckCabalVersion (checkCabalVersion)
defaultBuildSettings :: BuildSettings
defaultBuildSettings = BuildSettings

6
Stackage/BuildPlan.hs
View File

@ -1,14 +1,14 @@
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE RecordWildCards #-}
module Stackage.BuildPlan
( readBuildPlan
, writeBuildPlan
) where
import Stackage.Types
import qualified Data.Map as Map
import qualified Data.Set as Set
import Distribution.Text (simpleParse, display)
import Distribution.Text (display, simpleParse)
import Stackage.Types
readBuildPlan :: FilePath -> IO BuildPlan
readBuildPlan fp = do

2
Stackage/CheckPlan.hs
View File

@ -6,13 +6,13 @@ import Control.Monad (unless, when)
import Data.List (isPrefixOf, sort)
import qualified Data.Map as Map
import qualified Data.Set as Set
import Stackage.CheckCabalVersion (checkCabalVersion)
import Stackage.InstallInfo
import Stackage.Types
import Stackage.Util
import System.Exit (ExitCode (ExitFailure, ExitSuccess),
exitWith)
import System.Process (readProcessWithExitCode)
import Stackage.CheckCabalVersion (checkCabalVersion)
data Mismatch = OnlyDryRun String | OnlySimpleList String
deriving Show

2
Stackage/InstallInfo.hs
View File

@ -9,7 +9,7 @@ import qualified Data.Map as Map
import qualified Data.Set as Set
import Data.Version (showVersion)
import qualified Distribution.Text
import Distribution.Version (withinRange, simplifyVersionRange)
import Distribution.Version (simplifyVersionRange, withinRange)
import Stackage.HaskellPlatform
import Stackage.LoadDatabase
import Stackage.NarrowDatabase

2
Stackage/Select.hs
View File

@ -3,9 +3,9 @@ module Stackage.Select
, defaultSelectSettings
) where
import Data.Either (partitionEithers)
import qualified Data.Map as Map
import Data.Maybe (mapMaybe)
import Data.Either (partitionEithers)
import Data.Set (empty)
import qualified Data.Set as Set
import Prelude hiding (pi)

4
Stackage/Test.hs
View File

@ -5,8 +5,8 @@ module Stackage.Test
) where
import qualified Control.Concurrent as C
import Control.Exception (Exception, handle, throwIO, SomeException)
import Control.Monad (unless, when, replicateM)
import Control.Exception (Exception, SomeException, handle, throwIO)
import Control.Monad (replicateM, unless, when)
import qualified Data.Map as Map
import qualified Data.Set as Set
import Data.Typeable (Typeable)

2
Stackage/Types.hs
View File

@ -10,9 +10,9 @@ import Data.Set as X (Set)
import Data.Version as X (Version)
import Distribution.Package as X (PackageIdentifier (..),
PackageName (..))
import Distribution.PackageDescription (GenericPackageDescription)
import Distribution.Version as X (VersionRange (..))
import Distribution.Version (intersectVersionRanges)
import Distribution.PackageDescription (GenericPackageDescription)
newtype PackageDB = PackageDB (Map PackageName PackageInfo)
deriving (Show, Eq)

13
Stackage/Util.hs
View File

@ -8,20 +8,19 @@ import Data.List (stripPrefix)
import qualified Data.Map as Map
import qualified Data.Set as Set
import Data.Version (showVersion)
import Distribution.Text (simpleParse, display)
import Distribution.License (License (..))
import qualified Distribution.Package as P
import qualified Distribution.PackageDescription as PD
import Distribution.Text (display, simpleParse)
import Distribution.Version (thisVersion)
import Stackage.Types
import System.Directory (doesDirectoryExist,
removeDirectoryRecursive)
import System.Directory (getAppUserDataDirectory)
import System.Directory (canonicalizePath,
createDirectoryIfMissing)
import System.Environment (getEnvironment)
import System.FilePath ((</>))
import qualified Distribution.Package as P
import qualified Distribution.PackageDescription as PD
import Distribution.License (License (..))
import System.Directory (canonicalizePath,
createDirectoryIfMissing
)
-- | Allow only packages with permissive licenses.
allowPermissive :: [String] -- ^ list of explicitly allowed packages

18
app/stackage.hs
View File

@ -1,16 +1,16 @@
{-# LANGUAGE RecordWildCards #-}
import Stackage.Types
import Stackage.Build (build, defaultBuildSettings)
import Stackage.Init (stackageInit)
import Stackage.Util (allowPermissive)
import Stackage.Select (defaultSelectSettings, select)
import Stackage.CheckPlan (checkPlan)
import System.Environment (getArgs, getProgName)
import Data.Set (fromList)
import System.IO (hFlush, stdout)
import Stackage.Build (build, defaultBuildSettings)
import Stackage.BuildPlan (readBuildPlan, writeBuildPlan)
import Stackage.Test (runTestSuites)
import Stackage.CheckPlan (checkPlan)
import Stackage.Init (stackageInit)
import Stackage.Select (defaultSelectSettings, select)
import Stackage.Tarballs (makeTarballs)
import Stackage.Test (runTestSuites)
import Stackage.Types
import Stackage.Util (allowPermissive)
import System.Environment (getArgs, getProgName)
import System.IO (hFlush, stdout)
data SelectArgs = SelectArgs
{ excluded :: [String]