Skip to content

Instantly share code, notes, and snippets.

@brinchj

brinchj/gist:5107161

Created March 7, 2013 10:41
Show Gist options
  • Save brinchj/5107161 to your computer and use it in GitHub Desktop.
Save brinchj/5107161 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
(lblX, SIf cond lblY) <- ifP
body1 <- untilLabel lblY
case lastMay body1 of
-- if with else (body1 ends in GOTO)
Just (_, SGoto lblZ) -> do
body2 <- untilLabel lblZ
return [(lblX, SIfElse cond body2 (init body1))]
-- if with no else
_ -> return [lblX, SIfElse cond [] body1)]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment