Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add implicit foralls for bidir, update and unify pipeline

Browse source
This commit is contained in:
Martin Fredin 2023-04-03 17:34:33 +02:00
parent 12bca1c32d
commit 9870802371
33 changed files with 1010 additions and 1055 deletions
Download patch file Download diff file Expand all files Collapse all files

24
sample-programs/basic-8.crf
View file

@ -1,24 +1,20 @@
data Maybe (a) where {
data Maybe (a) where
Nothing : Maybe (a)
Just : a -> Maybe (a)
};
Just : a -> Maybe (a)
fromJust : Maybe (a) -> a ;
fromJust : Maybe (a) -> a
fromJust a =
case a of {
case a of
Just a => a
};
fromMaybe : a -> Maybe (a) -> a ;
fromMaybe : a -> Maybe (a) -> a
fromMaybe a b =
case b of {
Just a => a;
case b of
Just a => a
Nothing => a
};
maybe : b -> (a -> b) -> Maybe (a) -> b;
maybe : b -> (a -> b) -> Maybe (a) -> b
maybe b f ma =
case ma of {
Just a => f a;
case ma of
Just a => f a
Nothing => b
}