-Wall police. and strip the binary

darcs-hash:20070307074910-9c5c1-c82071afe812d1e1e6f4577c07c1d7b0b141c6c9.gz

1 files changed, 1 insertions, 0 deletions

diff --git a/W.hs b/W.hs
index b440c21..d46dc7a 100644
--- a/W.hs
+++ b/W.hs
@@ -91,6 +91,7 @@ forever a = a >> forever a
 --  rotate (-1)
 --  [4,5,6,7,8,1,2,3]
 --
+rotate :: Int -> [a] -> [a]
 rotate n xs = take l . drop offset . cycle $ xs
   where
     l      = length xs