haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make sure that dist directory exists

Browse Source
This commit is contained in:
Luite Stegeman 2011-09-05 22:17:10 +02:00
parent 533a3df684
commit ddb470b1a7
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yesod/Devel.hs Normal file → Executable file
View File

@ -23,7 +23,8 @@ import Data.Maybe (listToMaybe)
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.IO as T import qualified Data.Text.IO as T
import System.Directory (removeFile, getDirectoryContents) import System.Directory (createDirectoryIfMissing, removeFile,
getDirectoryContents)
import System.Exit (exitFailure) import System.Exit (exitFailure)
import System.Posix.Types (EpochTime) import System.Posix.Types (EpochTime)
import System.PosixCompat.Files (modificationTime, getFileStatus) import System.PosixCompat.Files (modificationTime, getFileStatus)
@ -39,6 +40,7 @@ lockFile = "dist/devel-terminate"
devel :: Bool -> IO () devel :: Bool -> IO ()
devel isDevel = do devel isDevel = do
createDirectoryIfMissing True "dist"
writeFile lockFile "" writeFile lockFile ""
cabal <- D.findPackageDesc "." cabal <- D.findPackageDesc "."
@ -95,8 +97,8 @@ pkgConfigs isDev
| otherwise = return inplacePkg | otherwise = return inplacePkg
where where
inplacePkg = "-package-confdist/package.conf.inplace" inplacePkg = "-package-confdist/package.conf.inplace"
isConfig pkg = "packages-" `L.isPrefixOf` pkg && isConfig dir = "packages-" `L.isPrefixOf` dir &&
".conf" `L.isSuffixOf` pkg ".conf" `L.isSuffixOf` dir
type FileList = Map.Map FilePath EpochTime type FileList = Map.Map FilePath EpochTime