From dbd943b89ff481e0971f86c2271223cfddee7a02 Mon Sep 17 00:00:00 2001
From: Vivian McPhail <haskell.vivian.mcphail@gmail.com>
Date: Sun, 26 Sep 2010 21:03:59 +0000
Subject: add note about strictness

---
 lib/Data/Packed/Vector.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Data/Packed/Vector.hs')

diff --git a/lib/Data/Packed/Vector.hs b/lib/Data/Packed/Vector.hs
index 23fe37f..e79e237 100644
--- a/lib/Data/Packed/Vector.hs
+++ b/lib/Data/Packed/Vector.hs
@@ -99,7 +99,8 @@ state_put :: s -> State s ()
 state_put s = State $ \_ -> ((),s)
 
 evalState :: State s a -> s -> a
-evalState m s = fst $ runState m s
+evalState m s = let (a,s') = runState m s
+                in seq s' a
 
 newtype MaybeT m a = MaybeT { runMaybeT :: m (Maybe a) }
 
-- 
cgit v1.2.3