on c5da7c0 help sign in
24 lines 510 B history raw
1module Generate.JavaScript.Literal (literal) where
3import qualified AST.Literal as Lit
4import qualified Generate.JavaScript.Builder as JS
5import qualified Generate.JavaScript.BuiltIn as BuiltIn
8literal :: Lit.Literal -> JS.Expr
9literal lit =
10 case lit of
11 Lit.Chr char ->
12 BuiltIn.character char
14 Lit.Str string ->
15 JS.String string
17 Lit.IntNum number ->
18 JS.Int number
20 Lit.FloatNum number ->
21 JS.Float number
23 Lit.Boolean boolean ->
24 JS.Bool boolean