[WIP] Monadic refactoring
This commit is contained in:
parent
906fee0e5d
commit
d8f37bed5c
@ -133,10 +133,10 @@ def xref_to_maybe_image(doc, xref) -> Maybe:
|
||||
|
||||
|
||||
def make_maybe_image_metadata_pair(image: Maybe, metadata: Maybe):
|
||||
f = image.bind(lambda img: Just(lambda mdt: ImageMetadataPair(img, mdt)))
|
||||
return f.amap(metadata)
|
||||
return Just(make_image_metadata_pair).amap(image).amap(metadata)
|
||||
|
||||
|
||||
@curry(2)
|
||||
def make_image_metadata_pair(image: Image.Image, metadatum: dict) -> Just:
|
||||
return ImageMetadataPair(image, metadatum)
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user