msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

two versions of optStr in Prelude.gf

Browse Source
This commit is contained in:
peb
2006-02-09 10:41:31 +00:00
parent fd563696fa
commit 1bf55bbf95
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/prelude/Prelude.gf
View File

@@ -20,8 +20,8 @@ oper
nonExist : Str = variants {} ;
optStr : Str -> Str = \s -> variants {[] ; s} ;
strOpt : Str -> Str = \s -> variants {s ; []} ;
optStr : Str -> Str = \s -> variants {s ; []} ;
strOpt : Str -> Str = \s -> variants {[] ; s} ;
constTable : (A,B : Type) -> B -> A => B = \_,_,b -> \\_ => b ;
constStr : (A : Type) -> Str -> A => Str = \A -> constTable A Str ;