mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-02-06 01:53:26 +00:00
12 lines
185 B
Elm
12 lines
185 B
Elm
|
module Util.Result exposing (fold)
|
||
|
|
|
||
|
|
|
||
|
|
fold : (a -> x) -> (b -> x) -> Result b a -> x
|
||
|
|
fold fa fb rba =
|
||
|
|
case rba of
|
||
|
|
Ok a ->
|
||
|
|
fa a
|
||
|
|
|
||
|
|
Err b ->
|
||
|
|
fb b
|