aeson / benchmarks / JsonParse.hs

{-# 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)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.