module Main where

import Constrained.Test
import Data.Maybe
import System.Environment
import Test.Hspec

main :: IO ()
IO ()
main = do
  Bool
nightly <- Maybe String -> Bool
forall a. Maybe a -> Bool
isJust (Maybe String -> Bool) -> IO (Maybe String) -> IO Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> String -> IO (Maybe String)
lookupEnv String
"NIGHTLY"
  Spec -> IO ()
hspec (Spec -> IO ()) -> Spec -> IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> Spec
tests Bool
nightly