-- | Convert a 'Result' value to a 'Maybe' value. A 'T.Partial' result
-- is treated as failure.
maybeResult :: Result r -> Maybe r
maybeResult (T.Done _ r) = Just r
maybeResult :: Result r -> Maybe r
maybeResult (T.Done _ r) = Just r
maybeResult (T.Done _ r) = Just r