diff options
Diffstat (limited to 'src/compiler/GF/JavaScript')
| -rw-r--r-- | src/compiler/GF/JavaScript/AbsJS.hs | 1 | ||||
| -rw-r--r-- | src/compiler/GF/JavaScript/PrintJS.hs | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/src/compiler/GF/JavaScript/AbsJS.hs b/src/compiler/GF/JavaScript/AbsJS.hs index 2632ade48..b39568de8 100644 --- a/src/compiler/GF/JavaScript/AbsJS.hs +++ b/src/compiler/GF/JavaScript/AbsJS.hs @@ -56,5 +56,6 @@ data Property = data PropertyName = IdentPropName Ident | StringPropName String + | IntPropName Int deriving (Eq,Ord,Show) diff --git a/src/compiler/GF/JavaScript/PrintJS.hs b/src/compiler/GF/JavaScript/PrintJS.hs index 4e04e3cbf..1e721e353 100644 --- a/src/compiler/GF/JavaScript/PrintJS.hs +++ b/src/compiler/GF/JavaScript/PrintJS.hs @@ -164,6 +164,4 @@ instance Print PropertyName where prt i e = case e of IdentPropName id -> prPrec i 0 (concatD [prt 0 id]) StringPropName str -> prPrec i 0 (concatD [prt 0 str]) - - - + IntPropName n -> prPrec i 0 (concatD [prt 0 n]) |