1 files changed, 1 insertions, 1 deletions
diff --git a/Test.hs b/Test.hs
index 599bc0eaa..56c70573d 100644
--- a/Test.hs
+++ b/Test.hs
@@ -72,7 +72,7 @@ main = do
 	divider
 	propigate rs qcok
   where
-	divider = putStrLn $ take 70 $ repeat '-'
+	divider = putStrLn $ replicate 70 '-'
 
 propigate :: [Counts] -> Bool -> IO ()
 propigate cs qcok