Move result data types into separate module

Statistics/Test/NonParametric.hs

@@ -30,6 +30,7 @@ module Statistics.Test.NonParametric
   , wilcoxonMatchedPairCriticalValue
     -- * Data types
   , TestType(..)
+  , TestResult(..)
   ) where
 
 import Control.Applicative ((<$>))
@@ -44,15 +45,9 @@ import Statistics.Distribution.Normal (standard)
 import Statistics.Math                (choose)
 import Statistics.Types               (Sample)
 import Statistics.Function            (sortBy)
+import Statistics.Test.Types
 
 
-
--- | Test type. Exact meaning depends on a specific test. But
--- generally it's tested whether some statistics is too big (small)
--- for 'OneTailed' or whether it too big or too small for 'TwoTailed'
-data TestType = OneTailed
-              | TwoTailed
-
 -- | The Wilcoxon Rank Sums Test.
 --
 -- This test calculates the sum of ranks for the given two samples.  The samples

Statistics/Test/Types.hs

@@ -0,0 +1,27 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+module Statistics.Test.Types (
+    TestType(..)
+  , TestResult(..)
+  , significant
+  ) where
+
+import Data.Typeable (Typeable)
+
+
+-- | Test type. Exact meaning depends on a specific test. But
+-- generally it's tested whether some statistics is too big (small)
+-- for 'OneTailed' or whether it too big or too small for 'TwoTailed'
+data TestType = OneTailed
+              | TwoTailed
+              deriving (Eq,Ord,Show,Typeable)
+
+-- | Result of hypothesis testing
+data TestResult = Significant    -- ^ Null hypothesis should be rejected
+                | NotSignificant -- ^ Data is compatible with hypothesis
+                  deriving (Eq,Ord,Show,Typeable)
+
+-- | Significant if parameter is 'True', not significant otherwiser
+significant :: Bool -> TestResult
+significant True  = Significant
+significant False = NotSignificant
+{-# INLINE significant #-}

statistics.cabal

@@ -135,6 +135,7 @@ library
     Statistics.Sample.KernelDensity.Simple
     Statistics.Sample.Powers
     Statistics.Test.NonParametric
+    Statistics.Test.Types
     Statistics.Transform
     Statistics.Types
   other-modules: