projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
9d9fcd07c1253adb6f14fdc5077c279939e8e850
[ghc-hetmet.git]
/
ghc
/
CONTRIB
/
pphs
/
docs
/
leftindent2.hs
1
eval :: GmState -> [GmState]
2
eval state = state: restStates
3
where
4
restStates | gmFinal state = []
5
| otherwise = eval nextState
6
nextState = doAdmin (step state)