suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove Test.hs -- it's all in the main code now

Browse Source
This commit is contained in:
Adam Sampson 2006-10-07 11:26:19 +00:00
parent 4a99213bb3
commit 04ce526824
1 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
fco/Test.hs
View File

@ -1,18 +0,0 @@
-- How to "scrap my boilerplate"...
module Test where
import qualified Tree as N
import Data.Generics
import Control.Monad.State
number :: N.Node -> State Int N.Node
number (N.Name s) = do
i <- get
put (i + 1)
return $ N.Name (s ++ "." ++ (show i))
number n = return n
numberPass :: N.Node -> N.Node
numberPass n = evalState (everywhereM (mkM number) n) 0