Haskelltweaks
This commit is contained in:
parent
c17a6d379c
commit
013b30532f
1 changed files with 5 additions and 7 deletions
|
@ -41,15 +41,13 @@ in rec {
|
||||||
imports = [
|
imports = [
|
||||||
"Control.Exception (bracket)"
|
"Control.Exception (bracket)"
|
||||||
"System.Directory (withCurrentDirectory)"
|
"System.Directory (withCurrentDirectory)"
|
||||||
"Control.Monad (when)"
|
"Control.Monad (when, ap)"
|
||||||
"Data.Maybe (listToMaybe)"
|
"Data.Maybe (listToMaybe)"
|
||||||
];
|
];
|
||||||
} ''
|
} ''
|
||||||
checkout :: IO FilePath
|
checkout :: IO FilePath
|
||||||
checkout = do
|
checkout = (mktemp "-d" |> captureTrim)
|
||||||
dir <- LBSC.unpack <$> (readTrim $ mktemp "-d")
|
>>= ((ap (<$) $ git "clone" "${repoSrc}") . LBSC.unpack)
|
||||||
git "clone" "${repoSrc}" dir
|
|
||||||
return dir
|
|
||||||
|
|
||||||
main = do
|
main = do
|
||||||
path <- readTrim pwd
|
path <- readTrim pwd
|
||||||
|
|
Loading…
Reference in a new issue