aeson-1.3.0.0: benchmarks/Typed/Common.hs

{-# OPTIONS_GHC -fno-warn-unused-imports #-}

module Typed.Common (load) where

import Prelude ()
import Prelude.Compat

import Data.ByteString.Lazy as L
import System.Exit
import System.IO

import Data.Aeson hiding (Result)

load :: FromJSON a => FilePath -> IO a
load fileName = do
  mv <- eitherDecode' <$> L.readFile fileName
  case mv of
    Right v -> return v
    Left err -> do
      hPutStrLn stderr $ fileName ++ ": JSON decode failed - " ++ err
      exitWith (ExitFailure 1)