From 04ce526824043a93b96e1f80d924cb032ea38dc1 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Sat, 7 Oct 2006 11:26:19 +0000
Subject: [PATCH] Remove Test.hs -- it's all in the main code now

---
 fco/Test.hs | 18 ------------------
 1 file changed, 18 deletions(-)
 delete mode 100644 fco/Test.hs

diff --git a/fco/Test.hs b/fco/Test.hs
deleted file mode 100644
index 627355e..0000000
--- a/fco/Test.hs
+++ /dev/null
@@ -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
-