diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2016-06-19 20:02:49 +0900 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2016-06-19 20:02:49 +0900 |
| commit | 9482099c688dbc90b60d0f12cb55a5705e5e74d5 (patch) | |
| tree | 40068a4112d14c2a159741a0ebb8612c59547b75 /src/Propellor/Property.hs | |
| parent | 5e06e4d7f2e1442285060ba820df418f3508a449 (diff) | |
clean build on GHC 7.10
Diffstat (limited to 'src/Propellor/Property.hs')
| -rw-r--r-- | src/Propellor/Property.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Propellor/Property.hs b/src/Propellor/Property.hs index c68dc882..fe314941 100644 --- a/src/Propellor/Property.hs +++ b/src/Propellor/Property.hs @@ -54,8 +54,8 @@ import System.Posix.Files import qualified Data.Hash.MD5 as MD5 import Data.List import Control.Applicative -import Data.Foldable hiding (elem) -import Prelude +import Data.Foldable (Foldable, foldr1) +import Prelude hiding (Foldable) import Propellor.Types import Propellor.Types.Core @@ -349,7 +349,7 @@ applyToList => (b -> p) -> t b -> p -prop `applyToList` xs = foldr1 before $ prop <$> xs +prop `applyToList` xs = Data.Foldable.foldr1 before $ prop <$> xs makeChange :: IO () -> Propellor Result makeChange a = liftIO a >> return MadeChange |