diff options
Diffstat (limited to 'compiler/GHC/Types/Basic.hs')
-rw-r--r-- | compiler/GHC/Types/Basic.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/GHC/Types/Basic.hs b/compiler/GHC/Types/Basic.hs index 2ba185c25e..ccb660e130 100644 --- a/compiler/GHC/Types/Basic.hs +++ b/compiler/GHC/Types/Basic.hs @@ -1211,6 +1211,12 @@ instance Outputable (DefMethSpec ty) where data SuccessFlag = Succeeded | Failed +instance Semigroup SuccessFlag where + Failed <> _ = Failed + _ <> Failed = Failed + _ <> _ = Succeeded + + instance Outputable SuccessFlag where ppr Succeeded = text "Succeeded" ppr Failed = text "Failed" |