Skip to content

S
sv2v
Commit 9e7768b6 by Zachary Snow
Options

simplify folded procedural branches

parent fc9b0b59
Showing with 2 additions and 0 deletions
src/Convert/Traverse.hs
...@@ -231,6 +231,8 @@ traverseSinglyNestedStmtsM fullMapper = cs ...@@ -231,6 +231,8 @@ traverseSinglyNestedStmtsM fullMapper = cs
cs (DoWhile e stmt) = fullMapper stmt >>= return . DoWhile e cs (DoWhile e stmt) = fullMapper stmt >>= return . DoWhile e
cs (Forever stmt) = fullMapper stmt >>= return . Forever cs (Forever stmt) = fullMapper stmt >>= return . Forever
cs (Foreach x vars stmt) = fullMapper stmt >>= return . Foreach x vars cs (Foreach x vars stmt) = fullMapper stmt >>= return . Foreach x vars
cs (If NoCheck (Number "1") s _) = fullMapper s
cs (If NoCheck (Number "0") _ s) = fullMapper s
cs (If u e s1 s2) = do cs (If u e s1 s2) = do
s1' <- fullMapper s1 s1' <- fullMapper s1
s2' <- fullMapper s2 s2' <- fullMapper s2
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment