mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-07 15:45:59 +00:00
19 lines
279 B
Elm
19 lines
279 B
Elm
{-
|
|
Copyright 2020 Docspell Contributors
|
|
|
|
SPDX-License-Identifier: GPL-3.0-or-later
|
|
-}
|
|
|
|
|
|
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
|