Permalink
Browse files

Delete old commented out code

  • Loading branch information...
1 parent d2a268b commit a3e57c3e6ef2f61fd0660a61f5a48a3d0e102fc2 @dmpots committed Dec 9, 2011
Showing with 0 additions and 30 deletions.
  1. +0 −30 tools/fibon-run/Fibon/Run/BenchmarkRunner.hs
@@ -48,30 +48,6 @@ run bb = do
Log.info $ printf "\n@%s|%s|%s" bmk pwd cmd
runDirect bb
-{-
--- Move this to analysis time
-analyze :: Sample -> ExtraStats -> Int -> Double -> IO RunSummary
-analyze times ghcStats numResamples ci = do
- let ests = [mean, stdDev]
- res <- withSystemRandom $ \gen ->
- resample gen ests numResamples times :: IO [Resample]
- let [em,es] = bootstrapBCA ci times ests res
- let runData = RunSummary {
- timeSummary =
- TimeMeasurement {
- meanTime = estPoint em
- , meanTimeLB = estLowerBound em
- , meanTimeUB = estUpperBound em
- , meanStddev = estPoint es
- , meanStddevUB = estLowerBound es
- , meanStddevLB = estUpperBound es
- , confidence = ci
- }
- , statsSummary = ghcStats
- }
- return runData
--}
-
checkResult :: BenchmarkBundle -> ExitCode -> IO (Maybe [RunFailure])
checkResult bb exitCode = do
outputs <- mapM (checkOutput bb) (output . benchDetails $ bb)
@@ -131,12 +107,6 @@ readExtraStats bb = do
bracket (openFile ((pathToExeRunDir bb) </> f) ReadMode)
(hClose)
(\h -> B.hGetContents h >>= \s -> B.length s `seq` return s)
- --stats <- hGetContents h
- -- drop header line in machine readable stats
- --let body = (unlines . drop 1 . lines) stats
- --case reads body of
- -- [(p, _)] -> return p
- -- _ -> logParseE)
type RunStepResult = IO (Either [RunFailure] RunDetail)

0 comments on commit a3e57c3

Please sign in to comment.