From ae7c8c61042e3fe44af9238bdd351b16fb0f5ee0 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Wed, 7 Mar 2007 07:52:50 +0100
Subject: dead code

darcs-hash:20070307065250-9c5c1-6b3712e3038ddfab71ac8daf78bd3374b0883400
---
 W.hs | 5 -----
 1 file changed, 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
 
-
-- 
cgit v1.2.3