Haskelltweaks

2019-08-02 15:10:43 +02:00 · 2019-08-02 15:10:43 +02:00 · 013b30532f
parent c17a6d379c
commit 013b30532f
1 changed files with 5 additions and 7 deletions
--- a/lib/test.nix
+++ b/lib/test.nix
@ -41,15 +41,13 @@ in rec {
    imports = [
      "Control.Exception (bracket)"
      "System.Directory (withCurrentDirectory)"
-      "Control.Monad (when)"
+      "Control.Monad (when, ap)"
      "Data.Maybe (listToMaybe)"
    ];
  } ''
    checkout :: IO FilePath
-    checkout = do
-      dir <- LBSC.unpack <$> (readTrim $ mktemp "-d")
-      git "clone" "${repoSrc}" dir
-      return dir
+    checkout = (mktemp "-d" |> captureTrim)
+      >>= ((ap (<$) $ git "clone" "${repoSrc}") . LBSC.unpack)

    main = do
      path <- readTrim pwd