module Statistics.Test.Types (
TestType(..)
, TestResult(..)
, significant
) where
import Data.Aeson (FromJSON, ToJSON)
import Data.Data (Typeable, Data)
import GHC.Generics
data TestType = OneTailed
| TwoTailed
deriving (Eq,Ord,Show,Typeable,Data,Generic)
instance FromJSON TestType
instance ToJSON TestType
data TestResult = Significant
| NotSignificant
deriving (Eq,Ord,Show,Typeable,Data,Generic)
instance FromJSON TestResult
instance ToJSON TestResult
significant :: Bool -> TestResult
significant True = Significant
significant False = NotSignificant