naive parser support for async keyword

discus-lang · Oct 26, 2018 · 8914d67 · 8914d67
1 parent 4db4814
commit 8914d67
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/s1/ddc-core/DDC/Core/Codec/Text/Parser/Exp.hs b/src/s1/ddc-core/DDC/Core/Codec/Text/Parser/Exp.hs
@@ -52,6 +52,16 @@ pExp c
         x2      <- pExp c
         return  $ foldr (XLet sp) x2 lts
 
+        -- async expression
+        -- async x <- e1 in e2
+ , do   pKey EAsync
+        var   <- pVar
+        pTok KOp "<-"
+        e1    <- pExp c
+        pKey  EIn
+        e2    <- pExp c
+        return  $ XAsync var e1 e2
+
         -- do { STMTS }
         --   Sugar for a let-expression.
  , do   pKey    EDo