Capture command output and print it prettier

src/Bricoleur/Commands/Test.hs

@@ -27,7 +27,7 @@ runCommand :: FilePath -> Source -> IO ()
 runCommand root src = do
   forM_ (sourceCommands src) $ \ln -> do
     let dir = root </> sourceDir src
-    cDebug ("  $ " % string % " (in " % string % ")") ln dir
+    cDebug ("  $ " % string % " (in '" % string % "')") ln dir
     (outH, inH) <- Sys.createPipe
     let process = (Sys.shell ln) { Sys.cwd = Just (root </> sourceDir src)
                                  , Sys.std_out = Sys.UseHandle inH