tools: fix warnings in simplebench
This commit is contained in:
parent
6d67bcb026
commit
f4842726e0
@ -36,14 +36,10 @@ Summary (best iteration):
|
||||
|
||||
-}
|
||||
|
||||
import Data.Char
|
||||
import Data.List
|
||||
import Data.Maybe
|
||||
import Numeric
|
||||
import System.Environment
|
||||
import System.Directory
|
||||
import System.FilePath
|
||||
import System.Cmd
|
||||
import System.Process
|
||||
import System.IO
|
||||
import Text.Tabular
|
||||
import qualified Text.Tabular.AsciiArt as TA
|
||||
@ -52,10 +48,8 @@ import Text.Html ((+++), renderHtml, stringToHtml)
|
||||
import System.Exit
|
||||
import Text.Printf
|
||||
import Data.Time.Clock
|
||||
import Data.Time.Format
|
||||
import System.Locale
|
||||
import Data.Time.Format ()
|
||||
import Control.Monad
|
||||
import Debug.Trace
|
||||
import System.Console.GetOpt
|
||||
|
||||
usagehdr = "bench [-f testsfile] [-n iterations] [-p precision] executable1 [executable2 ...]\n" ++
|
||||
@ -177,5 +171,3 @@ maketable opts rownames colnames results = Table rowhdrs colhdrs rows
|
||||
|
||||
showtime :: [Opt] -> (Float -> String)
|
||||
showtime opts = printf $ "%." ++ show (precisionopt opts) ++ "f"
|
||||
|
||||
strace a = trace (show a) a
|
||||
|
||||
Loading…
Reference in New Issue
Block a user