summaryrefslogtreecommitdiff
path: root/src/Propellor/Container.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Container.hs')
-rw-r--r--src/Propellor/Container.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Propellor/Container.hs b/src/Propellor/Container.hs
index c4d6f864..5c365f59 100644
--- a/src/Propellor/Container.hs
+++ b/src/Propellor/Container.hs
@@ -1,4 +1,5 @@
{-# LANGUAGE DataKinds, TypeFamilies #-}
+{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}
module Propellor.Container where
@@ -43,6 +44,9 @@ propagateContainer
::
-- Since the children being added probably have info,
-- require the Property's metatypes to have info.
+ -- -Wredundant-constraints is turned off because
+ -- this constraint appears redundant, but is actually
+ -- crucial.
( IncludesInfo metatypes ~ 'True
, IsContainer c
)