Permalink
Fetching contributors…
Cannot retrieve contributors at this time
41 lines (35 sloc) 1.06 KB
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Main (main) where
import Prelude ()
import Prelude.Compat
import Control.DeepSeq
import Control.Monad
import Data.Time.Clock
import System.Environment (getArgs)
import Text.JSON
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 :: IO ()
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 (_::JSValue) -> loop (good+1) 0
_ -> loop 0 (bad+1)
(good, _) <- loop 0 0
end <- getCurrentTime
putStrLn $ " " ++ show good ++ " good, " ++ show (diffUTCTime end start)