[WIP] Monadic refactoring

2023-02-06 15:16:41 +01:00 · 2023-02-06 15:16:41 +01:00 · 022bd4856a
commit 022bd4856a
parent ca3898cb53
1 changed files with 3 additions and 1 deletions
--- 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)