summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-03-07 07:52:50 +0100
committerDon Stewart <dons@cse.unsw.edu.au>2007-03-07 07:52:50 +0100
commitae7c8c61042e3fe44af9238bdd351b16fb0f5ee0 (patch)
treeedaf6bfe361e5999ee0487de3b42983ddfe82e42
parent2563c8cc948d4e4061b5d89e3b8062f13730c503 (diff)
downloadmetatile-ae7c8c61042e3fe44af9238bdd351b16fb0f5ee0.tar
metatile-ae7c8c61042e3fe44af9238bdd351b16fb0f5ee0.zip
dead code
darcs-hash:20070307065250-9c5c1-6b3712e3038ddfab71ac8daf78bd3374b0883400
-rw-r--r--W.hs5
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
-