ghc/CONTRIB/pphs/docs/Haskell_leftindent2.tex

   1 % From cvh/Public/GBC/Source/Gm7.hs
   2 \begin{verbatim}
   3 eval :: GmState -> [GmState]
   4 eval state = state: restStates
   5              where
   6              restStates | gmFinal state = []
   7                         | otherwise = eval nextState
   8              nextState  = doAdmin (step state)
   9 \end{verbatim}