From 022bd4856a51aa085df5fe983fd77b99b53d594c Mon Sep 17 00:00:00 2001 From: Matthias Bisping Date: Mon, 6 Feb 2023 15:16:41 +0100 Subject: [PATCH] [WIP] Monadic refactoring --- image_prediction/image_extractor/extractors/parsable.py | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/image_prediction/image_extractor/extractors/parsable.py b/image_prediction/image_extractor/extractors/parsable.py index f16bcf6..885cbae 100644 --- a/image_prediction/image_extractor/extractors/parsable.py +++ b/image_prediction/image_extractor/extractors/parsable.py @@ -133,7 +133,9 @@ def xref_to_maybe_image(doc, xref) -> Maybe: def make_maybe_image_metadata_pair(image: Maybe, metadata: Maybe): - return Maybe.apply(make_image_metadata_pair).to_arguments(image, metadata) + # haskell.org/tutorial/monads.html + # (>>) :: m a -> m b -> m b + return Just(make_image_metadata_pair).amap(image).amap(metadata) @curry(2)