git.iko.soy/typeable/aeson
on v1420 help sign in
typeable/aeson/benchmarks/JsonParse.hs
41 lines 1.1 kB history raw
1{-# LANGUAGE BangPatterns #-}
2{-# LANGUAGE NoImplicitPrelude #-}
3{-# LANGUAGE ScopedTypeVariables #-}
5{-# OPTIONS_GHC -fno-warn-orphans #-}
7module Main (main) where
9import Prelude.Compat
11import Control.DeepSeq
12import Control.Monad
13import Data.Time.Clock
14import System.Environment (getArgs)
15import Text.JSON
17instance NFData JSValue where
18 rnf JSNull = ()
19 rnf (JSBool b) = rnf b
20 rnf (JSRational b r) = rnf b `seq` rnf r `seq` ()
21 rnf (JSString s) = rnf (fromJSString s)
22 rnf (JSArray vs) = rnf vs
23 rnf (JSObject kvs) = rnf (fromJSObject kvs)
25main :: IO ()
26main = do
27 (cnt:args) <- getArgs
28 let count = read cnt :: Int
29 forM_ args $ \arg -> do
30 putStrLn $ arg ++ ":"
31 start <- getCurrentTime
32 let loop !good !bad
33 | good+bad >= count = return (good, bad)
34 | otherwise = do
35 s <- readFile arg
36 case decodeStrict s of
37 Ok (_::JSValue) -> loop (good+1) 0
38 _ -> loop 0 (bad+1)
39 (good, _) <- loop 0 0
40 end <- getCurrentTime
41 putStrLn $ " " ++ show good ++ " good, " ++ show (diffUTCTime end start)