Adding 'async' keyword

discus-lang · Oct 26, 2018 · 051e48a · 051e48a
1 parent c4b7885
commit 051e48a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/s1/ddc-core/DDC/Core/Codec/Text/Lexer/Token/Keyword.hs b/src/s1/ddc-core/DDC/Core/Codec/Text/Lexer/Token/Keyword.hs
@@ -38,6 +38,7 @@ data Keyword
         | EForget
         | EBox
         | ERun
+        | EAsync
 
         -- sugar keywords.
         | EDo
@@ -83,6 +84,7 @@ sayKeyword kw
         EWeakEff        -> "weakeff"
         EWith           -> "with"
         EUsing          -> "using"
+        EAsync          -> "async"
 
         -- sugar keywords
         EDo             -> "do"
@@ -132,6 +134,7 @@ acceptKeyword str
         "weakeff"       -> Just EWeakEff
         "with"          -> Just EWith
         "using"         -> Just EUsing
+        "async"         -> Just EAsync
 
         -- sugar keywords
         "do"            -> Just EDo