summaryrefslogtreecommitdiff
path: root/src/Propellor/Types.hs
diff options
context:
space:
mode:
authorJoey Hess2019-07-02 11:05:50 -0400
committerJoey Hess2019-07-02 11:05:50 -0400
commit8dfae9858f6fce6791e8111cb5ad72162eff7177 (patch)
tree898085e9f69056f40f1d2b362c00a3824a547ccb /src/Propellor/Types.hs
parent2ba2cda972f484771b763603bf09d555003861b7 (diff)
use DelayError
Syrak looked at this branch and said: Cool! I'd suggest that if it's working, that's an accident! You probably want IfStuck e (DelayError err1) (DelayErrorFcf err2) rather than IfStuck e (TypeError err1) (TypeError err2)
Diffstat (limited to 'src/Propellor/Types.hs')
-rw-r--r--src/Propellor/Types.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Types.hs b/src/Propellor/Types.hs
index 026babf0..0a3dd122 100644
--- a/src/Propellor/Types.hs
+++ b/src/Propellor/Types.hs
@@ -225,12 +225,12 @@ type family TightenTargetsAllowed untightened tightened where
&& NonTargets untightened `IsSubset` NonTargets tightened)
'True
(IfStuck (Targets tightened)
- (TypeError
+ (DelayError
('Text "Unable to infer desired Property type in this use of tightenTargets."
':$$: ('Text "Consider adding a type annotation.")
)
)
- (TypeError
+ (DelayErrorFcf
('Text "This use of tightenTargets would widen, not narrow, adding: "
':$$: PrettyPrintMetaTypes (Difference (Targets tightened) (Targets untightened))
)