[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):
|
def make_maybe_image_metadata_pair(image: Maybe, metadata: Maybe):
|
||||||
f = image.bind(lambda img: Just(lambda mdt: ImageMetadataPair(img, mdt)))
|
return Just(make_image_metadata_pair).amap(image).amap(metadata)
|
||||||
return f.amap(metadata)
|
|
||||||
|
|
||||||
|
|
||||||
|
@curry(2)
|
||||||
def make_image_metadata_pair(image: Image.Image, metadatum: dict) -> Just:
|
def make_image_metadata_pair(image: Image.Image, metadatum: dict) -> Just:
|
||||||
return ImageMetadataPair(image, metadatum)
|
return ImageMetadataPair(image, metadatum)
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user