dead code

darcs-hash:20070307065250-9c5c1-6b3712e3038ddfab71ac8daf78bd3374b0883400.gz

1 files changed, 0 insertions, 5 deletions

diff --git a/W.hs b/W.hs
index cf1c1fb..61f13d8 100644
--- a/W.hs
+++ b/W.hs
@@ -78,10 +78,6 @@ modifyWindows f = modify $ \s -> s {windows = f (windows s)}
 forever :: (Monad m) => m a -> m b
 forever a = a >> forever a
 
--- | Add an element onto the end of a list
-snoc :: [a] -> a -> [a]
-snoc xs x = xs ++ [x]
-
 -- | Rotate a list by 'n' elements.
 --
 -- for xs = [5..8] ++ [1..4]
@@ -101,4 +97,3 @@ rotate n xs = take l . drop offset . cycle $ xs
     offset | n < 0     = l + n
            | otherwise = n
 
-