diff options
Diffstat (limited to 'hadrian/src/Hadrian/Expression.hs')
| -rw-r--r-- | hadrian/src/Hadrian/Expression.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/hadrian/src/Hadrian/Expression.hs b/hadrian/src/Hadrian/Expression.hs index 6630a65c7a..6effc968d7 100644 --- a/hadrian/src/Hadrian/Expression.hs +++ b/hadrian/src/Hadrian/Expression.hs @@ -7,7 +7,7 @@ module Hadrian.Expression ( expr, exprIO, arg, remove, -- ** Predicates - (?), input, inputs, output, outputs, VerboseCommand (..), verboseCommand, + (?), input, inputs, output, outputs, ToPredicate(..), -- ** Evaluation @@ -145,9 +145,3 @@ output f = any (f ?==) <$> getOutputs -- | Does any of the output files match any of the given patterns? outputs :: [FilePattern] -> Predicate c b outputs = anyM output - -newtype VerboseCommand c b = VerboseCommand { predicate :: Predicate c b } - deriving Typeable - -verboseCommand :: (ShakeValue c, ShakeValue b) => Predicate c b -verboseCommand = predicate =<< expr (userSetting . VerboseCommand $ return False) |