diff options
| author | Vivian McPhail <haskell.vivian.mcphail@gmail.com> | 2010-09-26 21:03:59 +0000 |
|---|---|---|
| committer | Vivian McPhail <haskell.vivian.mcphail@gmail.com> | 2010-09-26 21:03:59 +0000 |
| commit | dbd943b89ff481e0971f86c2271223cfddee7a02 (patch) | |
| tree | 71ebd9be93fda53ee5d98986bfaaa1620012533b /lib/Data/Packed/Vector.hs | |
| parent | f2f54ac1d76fc391c0e231b4309ae5c4245cd0f9 (diff) | |
add note about strictness
Diffstat (limited to 'lib/Data/Packed/Vector.hs')
| -rw-r--r-- | lib/Data/Packed/Vector.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 () | |||
| 99 | state_put s = State $ \_ -> ((),s) | 99 | state_put s = State $ \_ -> ((),s) |
| 100 | 100 | ||
| 101 | evalState :: State s a -> s -> a | 101 | evalState :: State s a -> s -> a |
| 102 | evalState m s = fst $ runState m s | 102 | evalState m s = let (a,s') = runState m s |
| 103 | in seq s' a | ||
| 103 | 104 | ||
| 104 | newtype MaybeT m a = MaybeT { runMaybeT :: m (Maybe a) } | 105 | newtype MaybeT m a = MaybeT { runMaybeT :: m (Maybe a) } |
| 105 | 106 | ||