From 5c50b54a92c01218e5265413208b52321080c779 Mon Sep 17 00:00:00 2001 From: Vivian McPhail Date: Fri, 13 Aug 2010 04:18:46 +0000 Subject: remove MonadIO constraint from mapVectorM(_) --- examples/vector-map.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'examples') diff --git a/examples/vector-map.hs b/examples/vector-map.hs index d778358..f116946 100644 --- a/examples/vector-map.hs +++ b/examples/vector-map.hs @@ -7,7 +7,6 @@ import Data.Packed.Vector import Numeric.LinearAlgebra.Interface import Control.Monad.State -import Control.Monad.Trans ------------------------------------------- @@ -20,7 +19,7 @@ v = fromList $ take 10 [0..] test1 :: Vector Int -> IO (Vector Int) test1 = do mapVectorM (\x -> do - putStr $ (show) x ++ " " + putStr $ (show x) ++ " " return (x + 1)) -- we can have an arbitrary monad AND do IO @@ -36,7 +35,7 @@ main = do v' <- test1 v putStrLn "" putStrLn $ show v' - evalStateT (addInitialM v) 1 + evalStateT (addInitialM v) 0 putStrLn "" return () -- cgit v1.2.3