Idris2-boot/tests/idris2/reg001/D.idr

module D

-- %logging 10
func1 : Applicative f => (a -> f c) -> (b -> f d) -> (a, b) -> f (c, d)
func1 fn g (ma, mb) = MkPair <$> fn ma <*> ?gmb
-- %logging 0

-- %logging 10
mfunc : (a -> Maybe c) -> (b -> Maybe d) -> (a, b) -> Maybe (c, d)
mfunc fn g (ma, mb)
   = let pairapp = MkPair <$> fn ma in
         pairapp <*> g mb
%logging 0

func2 : (a -> c) -> (b -> d) -> a -> b -> (c, d)
func2 f g a b = MkPair (f a) (g b)
Preserve order of arguments in unification Sometimes we swap the arguments, to reduce code duplication, but we need to remember we've done that since (1 x : a) -> b is valid for an argument of type (x : a) -> b, but not vice versa (that is, we have a teensy bit of subtying to deal with, for convenience...). This fix seems a bit ugly, but we do at least now propagate the information. Fixes #82. 2019-08-16 13:32:16 +03:00			`module D`

			`-- %logging 10`
			`func1 : Applicative f => (a -> f c) -> (b -> f d) -> (a, b) -> f (c, d)`
			`func1 fn g (ma, mb) = MkPair <$> fn ma <*> ?gmb`
			`-- %logging 0`

			`-- %logging 10`
			`mfunc : (a -> Maybe c) -> (b -> Maybe d) -> (a, b) -> Maybe (c, d)`
Remove trailing whitespace from Idris sources. This is the result of running the command: $ find . -name '*.idr' -type f -exec sed -i -E 's/\s+$//' {} + I confirmed before running it that this would not affect any markdown formatting in documentation comments. 2019-10-26 00:24:25 +03:00			`mfunc fn g (ma, mb)`
Preserve order of arguments in unification Sometimes we swap the arguments, to reduce code duplication, but we need to remember we've done that since (1 x : a) -> b is valid for an argument of type (x : a) -> b, but not vice versa (that is, we have a teensy bit of subtying to deal with, for convenience...). This fix seems a bit ugly, but we do at least now propagate the information. Fixes #82. 2019-08-16 13:32:16 +03:00			`= let pairapp = MkPair <$> fn ma in`
			`pairapp <*> g mb`
			`%logging 0`

			`func2 : (a -> c) -> (b -> d) -> a -> b -> (c, d)`
			`func2 f g a b = MkPair (f a) (g b)`