haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-03-23 17:01:50 +01: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 ) where
import Control.Monad.Writer.Strict (Writer, execWriter, tell) import Control.Monad.Writer.Strict (Writer, execWriter, tell)
import qualified Data.Text as T
import Stackage.BuildConstraints import Stackage.BuildConstraints
import Stackage.BuildPlan import Stackage.BuildPlan
import Stackage.PackageDescription import Stackage.PackageDescription
import Stackage.Prelude import Stackage.Prelude
import qualified Data.Text as T
-- FIXME check cycles in dependencies, only looking at libraries and -- FIXME check cycles in dependencies, only looking at libraries and
-- executables -- executables

25
Stackage/PerformBuild.hs
View File

@ -2,9 +2,9 @@
-- documentation directory in the process. -- documentation directory in the process.
{-# LANGUAGE CPP #-} {-# LANGUAGE CPP #-}
{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
module Stackage.PerformBuild module Stackage.PerformBuild
( performBuild ( performBuild
, PerformBuild (..) , PerformBuild (..)
@ -12,22 +12,25 @@ module Stackage.PerformBuild
, pbDocDir , pbDocDir
) where ) where
import Stackage.BuildConstraints import Control.Concurrent.Async (async)
import Stackage.PackageDescription
import Stackage.BuildPlan
import Stackage.Prelude hiding (pi)
import qualified Data.Map as Map
import Control.Concurrent.STM.TSem import Control.Concurrent.STM.TSem
import Control.Monad.Writer.Strict (execWriter, tell) import Control.Monad.Writer.Strict (execWriter, tell)
import qualified Data.Map as Map
import Data.NonNull (fromNullable) import Data.NonNull (fromNullable)
import Control.Concurrent.Async (async) import Filesystem (canonicalizePath, createTree,
import System.IO.Temp (withSystemTempDirectory) getWorkingDirectory, isDirectory,
import Filesystem (createTree, removeTree, isDirectory, rename, canonicalizePath, getWorkingDirectory) removeTree, rename)
import System.IO (withBinaryFile, IOMode (WriteMode))
import Filesystem.Path (parent) import Filesystem.Path (parent)
import qualified Filesystem.Path as F 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.Directory (findExecutable)
import System.Environment (getEnvironment)
import System.IO (IOMode (WriteMode),
withBinaryFile)
import System.IO.Temp (withSystemTempDirectory)
data BuildException = BuildException (Map PackageName BuildFailure) [Text] data BuildException = BuildException (Map PackageName BuildFailure) [Text]
deriving Typeable 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.Archive.Tar.Entry as Tar
import qualified Codec.Compression.GZip as GZip import qualified Codec.Compression.GZip as GZip
import qualified Data.Yaml as Y import qualified Data.Yaml as Y
import Filesystem (isFile)
import Foreign.C.Types (CTime (CTime)) import Foreign.C.Types (CTime (CTime))
import Stackage.BuildConstraints import Stackage.BuildConstraints
import Stackage.BuildPlan import Stackage.BuildPlan
@ -20,7 +21,6 @@ import Stackage.Prelude
import qualified System.PosixCompat.Time as PC import qualified System.PosixCompat.Time as PC
import qualified Text.XML as X import qualified Text.XML as X
import Text.XML.Cursor import Text.XML.Cursor
import Filesystem (isFile)
-- | Get current time -- | Get current time
epochTime :: IO Tar.EpochTime epochTime :: IO Tar.EpochTime