diff options
Diffstat (limited to 'Types/Transfer.hs')
-rw-r--r-- | Types/Transfer.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Types/Transfer.hs b/Types/Transfer.hs index 73952c56e..1b54f8511 100644 --- a/Types/Transfer.hs +++ b/Types/Transfer.hs @@ -87,7 +87,7 @@ instance Observable (Either e Bool) where observeBool (Right b) = b observeFailure = Right False -instance Observable (Either e (Maybe a)) where - observeBool (Right (Just _)) = True - observeBool _ = False - observeFailure = Right Nothing +instance Observable (Maybe a) where + observeBool (Just _) = True + observeBool Nothing = False + observeFailure = Nothing |