forked from GitHub/gf-core
10 lines
222 B
Plaintext
10 lines
222 B
Plaintext
concrete LiteralsCnc of Literals = {
|
|
|
|
lincat S = Str ;
|
|
|
|
lin IsString x = x.s ++ "is string" ;
|
|
lin IsInteger x = x.s ++ "is integer" ;
|
|
lin IsFloat x = x.s ++ "is float" ;
|
|
lin IsEq x = x.s ++ "=" ++ x.s ;
|
|
|
|
} |