github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00
Code Issues Projects Releases Wiki Activity

Define DoWhile syntax.

Browse Source
This commit is contained in:
Rob Rix 2017-03-26 21:16:01 -04:00
parent 80ae9ffe4b
commit 6b1d830e0f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Data/Syntax/Statement.hs
View File

@ -19,7 +19,10 @@ newtype Yield a = Yield a
-- Loops -- Loops
data While a = While !a !a data While a = While { whileCondition :: !a, whileBody :: !a }
deriving (Eq, Show)
data DoWhile a = DoWhile { doWhileCondition :: !a, doWhileBody :: !a }
deriving (Eq, Show) deriving (Eq, Show)