summaryrefslogtreecommitdiff
path: root/src/Propellor/Property.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-25 02:05:26 -0400
committerJoey Hess2016-03-25 02:06:11 -0400
commit5d2d64678f506d23bdfddb3f7cc452ac1d7c42eb (patch)
tree334250da3335b2d5ac09d2bf8a0c7fb7882a9d83 /src/Propellor/Property.hs
parent2506453874aa30968d8533a603d295ac248273c5 (diff)
fix warnings
Diffstat (limited to 'src/Propellor/Property.hs')
-rw-r--r--src/Propellor/Property.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Propellor/Property.hs b/src/Propellor/Property.hs
index c665b6a0..582b7cfb 100644
--- a/src/Propellor/Property.hs
+++ b/src/Propellor/Property.hs
@@ -56,7 +56,6 @@ import Propellor.Types
import Propellor.Types.ResultCheck
import Propellor.Types.MetaTypes
import Propellor.Info
-import Propellor.Exception
import Propellor.EnsureProperty
import Utility.Exception
import Utility.Monad
@@ -256,13 +255,13 @@ isNewerThan x y = do
tightenTargets
::
-- Note that this uses PolyKinds
- ( (Targets old `NotSuperset` Targets new) ~ CanCombineTargets
- , (NonTargets new `NotSuperset` NonTargets old) ~ CanCombineTargets
+ ( (Targets old `NotSuperset` Targets new) ~ 'CanCombineTargets
+ , (NonTargets new `NotSuperset` NonTargets old) ~ 'CanCombineTargets
, SingI new
)
=> Property (MetaTypes old)
-> Property (MetaTypes new)
-tightenTargets (Property old d a i c) = Property sing d a i c
+tightenTargets (Property _old d a i c) = Property sing d a i c
{-