on 7c33c13 help sign in
25 lines 589 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
6import Generate.JavaScript.Variable (Generator)
9literal :: Lit.Literal -> Generator JS.Expr
10literal lit =
11 case lit of
12 Lit.Chr char ->
13 BuiltIn.char char
15 Lit.Str string ->
16 return $ JS.String string
18 Lit.IntNum number ->
19 return $ JS.Int number
21 Lit.FloatNum number ->
22 return $ JS.Float number
24 Lit.Boolean boolean ->
25 return $ JS.Bool boolean