collection-json-1.0.1.0: test/Main.hs

{-|
Module      : Main
Copyright   : (c) Alex Brandt, 2017
License     : MIT

"Main" Module for collection-json property tests.
-}
module Main where

import Control.Applicative ((<$>))
import System.Exit (exitFailure, exitSuccess)

import qualified Data.CollectionJSON.Tests

main :: IO ()
main =
  do success <- and <$> sequence [ Data.CollectionJSON.Tests.runTests ]
     if success then exitSuccess else exitFailure