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

stylish-haskell cleanup

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-16 09:28:28 +02:00
parent 944654b4f9
commit d6c659c7fb
9 changed files with 74 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Stackage/CheckBuildPlan.hs
View File

@ -10,11 +10,11 @@ module Stackage.CheckBuildPlan
) where
import Control.Monad.Writer.Strict (Writer, execWriter, tell)
import qualified Data.Text as T
import Stackage.BuildConstraints
import Stackage.BuildPlan
import Stackage.PackageDescription
import Stackage.Prelude
import qualified Data.Text as T
-- FIXME check cycles in dependencies, only looking at libraries and
-- executables

25
Stackage/PerformBuild.hs
View File

@ -2,9 +2,9 @@
-- documentation directory in the process.
{-# LANGUAGE CPP #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
module Stackage.PerformBuild
( performBuild
, PerformBuild (..)
@ -12,22 +12,25 @@ module Stackage.PerformBuild
, pbDocDir
) where
import Stackage.BuildConstraints
import Stackage.PackageDescription
import Stackage.BuildPlan
import Stackage.Prelude hiding (pi)
import qualified Data.Map as Map
import Control.Concurrent.Async (async)
import Control.Concurrent.STM.TSem
import Control.Monad.Writer.Strict (execWriter, tell)
import qualified Data.Map as Map
import Data.NonNull (fromNullable)
import Control.Concurrent.Async (async)
import System.IO.Temp (withSystemTempDirectory)
import Filesystem (createTree, removeTree, isDirectory, rename, canonicalizePath, getWorkingDirectory)
import System.IO (withBinaryFile, IOMode (WriteMode))
import Filesystem (canonicalizePath, createTree,
getWorkingDirectory, isDirectory,
removeTree, rename)
import Filesystem.Path (parent)
import qualified Filesystem.Path as F
import System.Environment (getEnvironment)
import Stackage.BuildConstraints
import Stackage.BuildPlan
import Stackage.PackageDescription
import Stackage.Prelude hiding (pi)
import System.Directory (findExecutable)
import System.Environment (getEnvironment)
import System.IO (IOMode (WriteMode),
withBinaryFile)
import System.IO.Temp (withSystemTempDirectory)
data BuildException = BuildException (Map PackageName BuildFailure) [Text]
deriving Typeable

2
Stackage/ServerBundle.hs
View File

@ -13,6 +13,7 @@ import qualified Codec.Archive.Tar as Tar
import qualified Codec.Archive.Tar.Entry as Tar
import qualified Codec.Compression.GZip as GZip
import qualified Data.Yaml as Y
import Filesystem (isFile)
import Foreign.C.Types (CTime (CTime))
import Stackage.BuildConstraints
import Stackage.BuildPlan
@ -20,7 +21,6 @@ import Stackage.Prelude
import qualified System.PosixCompat.Time as PC
import qualified Text.XML as X
import Text.XML.Cursor
import Filesystem (isFile)
-- | Get current time
epochTime :: IO Tar.EpochTime