Cleanup
authorDavid Cock <david.cock@inf.ethz.ch>
Mon, 24 Aug 2015 08:29:37 +0000 (10:29 +0200)
committerDavid Cock <david.cock@inf.ethz.ch>
Mon, 24 Aug 2015 08:29:37 +0000 (10:29 +0200)
Signed-off-by: David Cock <david.cock@inf.ethz.ch>

hake/Main.hs

index 6b3d746..840a421 100644 (file)
@@ -573,7 +573,6 @@ makeHakeDeps h o l = do
 makeDirectories :: Handle -> S.Set FilePath -> IO ()
 makeDirectories h dirs = do
     hPutStrLn h "# Directories follow"
-    --mapM_ (makeDir h) (S.toList (S.delete ("." </> ".marker") dirs))
     hPutStrLn h "DIRECTORIES=\\"
     mapM_ (\d -> hPutStrLn h $ "    " ++ d ++ " \\") (S.toList dirs)
     hPutStrLn h "\n"