Move Condition to Base.hs.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 1 Jan 2015 23:13:50 +0000 (23:13 +0000)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 1 Jan 2015 23:13:50 +0000 (23:13 +0000)
src/Base.hs
src/Oracles/Base.hs
src/Oracles/Flag.hs

index b95cf14..0a88146 100644 (file)
@@ -6,6 +6,7 @@ module Base (
     module Data.List,
     Stage (..),
     Args, arg,
+    Condition (..),
     joinArgs, joinArgsWithSpaces, splitArgs,
     filterOut
     ) where
@@ -20,6 +21,8 @@ data Stage = Stage0 | Stage1 | Stage2 | Stage3 deriving (Eq, Enum)
 
 type Args = Action [String]
 
+type Condition = Action Bool
+
 instance Monoid a => Monoid (Action a) where
     mempty = return mempty
     mappend p q = mappend <$> p <*> q
index 1a9cf3e..f9e5c73 100644 (file)
@@ -2,15 +2,12 @@
 
 module Oracles.Base (
     ConfigKey (..),
-    askConfigWithDefault, askConfig,
-    Condition (..)
+    askConfigWithDefault, askConfig
     ) where
 
 import Base
 import Development.Shake.Classes
 
-type Condition = Action Bool
-
 newtype ConfigKey = ConfigKey String deriving (Show, Typeable, Eq, Hashable, Binary, NFData)
 
 askConfigWithDefault :: String -> Action String -> Action String
index c8ddc8e..1958c07 100644 (file)
@@ -4,7 +4,7 @@ module Oracles.Flag (
     module Control.Monad,
     module Prelude,
     Flag (..), 
-    Condition, test, when, unless, not, (&&), (||)
+    test, when, unless, not, (&&), (||)
     ) where
 
 import Control.Monad hiding (when, unless)