Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

36 lines (32 sloc) 1.027 kb
{-# LANGUAGE BangPatterns, ScopedTypeVariables #-}
import Control.DeepSeq
import Control.Exception
import Control.Monad
import Text.JSON
import Data.Time.Clock
import System.Environment (getArgs)
import System.IO
import qualified Data.ByteString as B
instance NFData JSValue where
rnf JSNull = ()
rnf (JSBool b) = rnf b
rnf (JSRational b r) = rnf b `seq` rnf r `seq` ()
rnf (JSString s) = rnf (fromJSString s)
rnf (JSArray vs) = rnf vs
rnf (JSObject kvs) = rnf (fromJSObject kvs)
main = do
(cnt:args) <- getArgs
let count = read cnt :: Int
forM_ args $ \arg -> do
putStrLn $ arg ++ ":"
start <- getCurrentTime
let loop !good !bad
| good+bad >= count = return (good, bad)
| otherwise = do
s <- readFile arg
case decodeStrict s of
Ok (v::JSValue) -> loop (good+1) 0
_ -> loop 0 (bad+1)
(good, _) <- loop 0 0
end <- getCurrentTime
putStrLn $ " " ++ show good ++ " good, " ++ show (diffUTCTime end start)
Jump to Line
Something went wrong with that request. Please try again.