1
0
Fork 0

Haskelltweaks

This commit is contained in:
Malte Brandy 2019-08-02 15:10:43 +02:00
parent c17a6d379c
commit 013b30532f
No known key found for this signature in database
GPG key ID: 226A2D41EF5378C9

View file

@ -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