export toList and use it in benchmarks

sebfisch · Nov 14, 2010 · 6eb2dc0 · 6eb2dc0
1 parent 22dbe58
commit 6eb2dc0
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/Control/Monad/Stream.hs b/src/Control/Monad/Stream.hs
@@ -24,7 +24,7 @@
 -- are interpreted as a multiset, i.e., a valid transformation
 -- according to the monad laws may change the order of the results.
 -- 
-module Control.Monad.Stream ( Stream, suspended, runStream ) where
+module Control.Monad.Stream ( Stream, suspended, runStream, toList ) where
 
 import Control.Monad
 import Control.Applicative
@@ -58,7 +58,7 @@ suspended = Susp
 -- 
 runStream :: Stream a -> [a]
 runStream = toList
-{-# DEPRECATED runStream "use Data.Foldable.toList" #-}
+{-# DEPRECATED runStream "use toList" #-}
 
 instance Monad Stream
  where

diff --git a/src/benchmarks.hs b/src/benchmarks.hs
@@ -4,8 +4,8 @@ import Control.Monad.Stream
 
 main :: IO ()
 main = defaultMain
-  [ bench "permsort" $ nf (runStream . permSort) ([1..4]++[8,7..5]),
-    bench "8 queens" $ nf (runStream . nQueens) 8 ]
+  [ bench "permsort" $ nf (toList . permSort) ([1..4]++[8,7..5]),
+    bench "8 queens" $ nf (toList . nQueens) 8 ]
 
 permSort :: [Int] -> Stream [Int]
 permSort xs = do ys <- permute xs