diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-11-30 13:45:43 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-11-30 14:13:20 -0400 |
commit | 7a8d7ba5ef558f3038ee5ee06e92e5f5e8df1ec5 (patch) | |
tree | 3a2482329870e768f4f92240ae14d61c7768bd0d /Types/Transfer.hs | |
parent | 51ab2efc693983dcca6d79b531339b00e23fa871 (diff) |
rethought --relaxed change
Better to make it not be surprising and slow, than surprising and fast.
--raw can be used when it needs to be really fast.
Implemented adding a youtube-dl supported url to an existing file.
This commit was sponsored by andrea rota.
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 |