Deal with ugly behaviour of canonicalizePath when file doesn't exist.
authorDavid Terei <davidterei@gmail.com>
Mon, 4 Mar 2013 09:27:31 +0000 (01:27 -0800)
committerDavid Terei <davidterei@gmail.com>
Mon, 4 Mar 2013 09:27:31 +0000 (01:27 -0800)
Nofib.hs

index 01ec308..2215a06 100644 (file)
--- a/Nofib.hs
+++ b/Nofib.hs
@@ -253,7 +253,7 @@ runTest Build{run=Just speed,..} test = do
     config <- readConfig $ output </> test </> "config.txt"
     let args = words (config "PROG_ARGS") ++ words (config $ map toUpper (show speed) ++ "_OPTS")
     stdin <- let s = config "STDIN_FILE" in if s == "" then grab "stdin" else readFile $ test </> s
-    stats <- IO.canonicalizePath $ output </> test </> "stat.txt"
+    stats <- fmap (</> "stat.txt") (IO.canonicalizePath $ output </> test)
 
     fmap and $ replicateM times $ do
         start <- getCurrentTime