From fc7626b6c8331e32ce4032dde2d693737f4a7ae3 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Wed, 7 Mar 2007 08:49:10 +0100
Subject: -Wall police. and strip the binary

darcs-hash:20070307074910-9c5c1-c82071afe812d1e1e6f4577c07c1d7b0b141c6c9.gz
---
 W.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'W.hs')

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
-- 
cgit v1.2.3