git.iko.soy/elk
on d163289 help sign in
elk/src/Generate/JavaScript/Literal.hs
25 lines 541 B history raw
1module Generate.JavaScript.Literal (literal) where
3import qualified Language.ECMAScript3.Syntax as JS
5import qualified AST.Literal as Lit
6import qualified Generate.JavaScript.BuiltIn as BuiltIn
9literal :: Lit.Literal -> JS.Expression ()
10literal lit =
11 case lit of
12 Lit.Chr char ->
13 BuiltIn.character char
15 Lit.Str string ->
16 BuiltIn.string string
18 Lit.IntNum number ->
19 JS.IntLit () number
21 Lit.FloatNum number ->
22 JS.NumLit () number
24 Lit.Boolean boolean ->
25 JS.BoolLit () boolean