-
Notifications
You must be signed in to change notification settings - Fork 322
/
JsonParse.hs
35 lines (32 loc) · 1 KB
/
JsonParse.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
{-# 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)