slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tools: fix warnings in simplebench

Browse Source
This commit is contained in:
Simon Michael 2014-10-19 09:34:46 -07:00
parent 6d67bcb026
commit f4842726e0
2 changed files with 12 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
hledger/hledger-cli.hs → hledger/app/hledger-cli.hs
View File

12
tools/simplebench.hs
View File

@ -36,14 +36,10 @@ Summary (best iteration):
-} -}
import Data.Char
import Data.List import Data.List
import Data.Maybe
import Numeric
import System.Environment import System.Environment
import System.Directory
import System.FilePath import System.FilePath
import System.Cmd import System.Process
import System.IO import System.IO
import Text.Tabular import Text.Tabular
import qualified Text.Tabular.AsciiArt as TA import qualified Text.Tabular.AsciiArt as TA
@ -52,10 +48,8 @@ import Text.Html ((+++), renderHtml, stringToHtml)
import System.Exit import System.Exit
import Text.Printf import Text.Printf
import Data.Time.Clock import Data.Time.Clock
import Data.Time.Format import Data.Time.Format ()
import System.Locale
import Control.Monad import Control.Monad
import Debug.Trace
import System.Console.GetOpt import System.Console.GetOpt
usagehdr = "bench [-f testsfile] [-n iterations] [-p precision] executable1 [executable2 ...]\n" ++ 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 :: [Opt] -> (Float -> String)
showtime opts = printf $ "%." ++ show (precisionopt opts) ++ "f" showtime opts = printf $ "%." ++ show (precisionopt opts) ++ "f"
strace a = trace (show a) a