ebf43b3 · typeable/aeson

git.iko.soy/typeable/aeson

Remove sources of compiler warnings from benchmarks

commitebf43b3be087733924a5262d63a4672ba1616034 authorBryan O'Sullivan <bos@serpentine.com> dateFri 22 Nov 2013, 16:38 (13 years ago) parent5345145

3 files changed+7−6

compare with master

unifiedsplit

benchmarks/AesonEncode.hs+1−1 benchmarks/AesonParse.hs+4−3 benchmarks/JsonParse.hs+2−2

benchmarks/AesonEncode.hs+1−1

@@ -3,7 +3,7 @@

33import Control.Exception

44import Control.Monad

55import Data.Aeson

6−import Data.Attoparsec

6+import Data.Attoparsec (IResult(..), parseWith)

77import Data.Time.Clock

88import System.Environment (getArgs)

99import System.IO

benchmarks/AesonParse.hs+4−3

@@ -3,12 +3,13 @@

33import Control.Exception

44import Control.Monad

55import Data.Aeson

6−import Data.Attoparsec

6+import Data.Attoparsec (IResult(..), parseWith)

77import Data.Time.Clock

88import System.Environment (getArgs)

99import System.IO

1010import qualified Data.ByteString as B

1111

12+main :: IO ()

1213main = do

1314 (bs:cnt:args) <- getArgs

1415 let count = read cnt :: Int

@@ -23,10 +24,10 @@ main = do

2324 let refill = B.hGet h blkSize

2425 result <- parseWith refill json =<< refill

2526 case result of

26− Done _ r -> loop (good+1) bad

27+ Done _ _ -> loop (good+1) bad

2728 _ -> loop good (bad+1)

2829 (good, _) <- loop 0 0

2930 delta <- flip diffUTCTime start `fmap` getCurrentTime

3031 putStrLn $ " " ++ show good ++ " good, " ++ show delta

3132 let rate = fromIntegral count / realToFrac delta :: Double

32− putStrLn $ " " ++ show (round rate) ++ " per second"

33+ putStrLn $ " " ++ show (round rate :: Int) ++ " per second"

benchmarks/JsonParse.hs+2−2

@@ -6,7 +6,6 @@ import Control.Monad

66import Text.JSON

77import Data.Time.Clock

88import System.Environment (getArgs)

9−import System.IO

109

1110instance NFData JSValue where

1211 rnf JSNull = ()

@@ -16,6 +15,7 @@ instance NFData JSValue where

1615 rnf (JSArray vs) = rnf vs

1716 rnf (JSObject kvs) = rnf (fromJSObject kvs)

1817

18+main :: IO ()

1919main = do

2020 (cnt:args) <- getArgs

2121 let count = read cnt :: Int

@@ -27,7 +27,7 @@ main = do

2727 | otherwise = do

2828 s <- readFile arg

2929 case decodeStrict s of

30− Ok (v::JSValue) -> loop (good+1) 0

30+ Ok (_::JSValue) -> loop (good+1) 0

3131 _ -> loop 0 (bad+1)

3232 (good, _) <- loop 0 0

3333 end <- getCurrentTime