mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
22 lines
569 B
Idris
22 lines
569 B
Idris
module Data.Linear.Bifunctor
|
|
|
|
import Data.Linear.Notation
|
|
|
|
%default total
|
|
|
|
||| A linear bimap on linear pairs.
|
|
||| There is no general Bifunctor interface because it would not be implementable with
|
|
||| The same type signature consistently, for example LEither does not consume both
|
|
||| `f` and `g` linearly.
|
|
public export
|
|
bimap : (a -@ x) -@ (b -@ y) -@ (LPair a b) -@ (LPair x y)
|
|
bimap f g (a # b) = f a # g b
|
|
|
|
public export
|
|
mapFst : (a -@ x) -@ LPair a b -@ LPair x b
|
|
mapFst f = bimap f id
|
|
|
|
public export
|
|
mapSnd : (b -@ y) -@ LPair a b -@ LPair a y
|
|
mapSnd = bimap id
|