docspell/modules/webapp/src/main/elm/Util/Result.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
Add copyright header to source files 2021-07-04 08:24:49 +00:00			`{-`
Change headers of all elm files 2021-07-25 12:00:11 +00:00			`Copyright 2020 Docspell Contributors`
Add copyright header to source files 2021-07-04 08:24:49 +00:00
Change headers of all elm files 2021-07-25 12:00:11 +00:00			`SPDX-License-Identifier: GPL-3.0-or-later`
Add copyright header to source files 2021-07-04 08:24:49 +00:00			`-}`

Change headers of all elm files 2021-07-25 12:00:11 +00:00
Externalize error messages 2021-04-17 09:14:29 +00:00			`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`