two versions of optStr in Prelude.gf

This commit is contained in:
peb
2006-02-09 10:41:31 +00:00
parent fd563696fa
commit 1bf55bbf95

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 ;