Fixed ambiguous type for CmdString in Shake.hs
authorChris Tetreault <chris@doingmyprogramming.com>
Mon, 14 Sep 2015 17:22:34 +0000 (10:22 -0700)
committerChris Tetreault <chris@doingmyprogramming.com>
Mon, 14 Sep 2015 17:22:34 +0000 (10:22 -0700)
Stdout s, Stderr _ -> Stdouterr s

src/Shake.hs

index cf80fd8..1cf39e1 100644 (file)
@@ -84,7 +84,7 @@ determineLogSource = do
     haveLogs <- System.Directory.doesDirectoryExist "logs"
     if haveLogs
     then do
-        (Exit _, Stdout s, Stderr _) <- cmd "git -C logs rev-parse --is-bare-repository"
+        (Exit _, Stdouterr s) <- cmd "git -C logs rev-parse --is-bare-repository"
         if s == "true\n"
         then return BareGit
         else return FileSystem