summaryrefslogtreecommitdiff
path: root/lib/Data/Packed/Vector.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data/Packed/Vector.hs')
-rw-r--r--lib/Data/Packed/Vector.hs3
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 ()
99state_put s = State $ \_ -> ((),s) 99state_put s = State $ \_ -> ((),s)
100 100
101evalState :: State s a -> s -> a 101evalState :: State s a -> s -> a
102evalState m s = fst $ runState m s 102evalState m s = let (a,s') = runState m s
103 in seq s' a
103 104
104newtype MaybeT m a = MaybeT { runMaybeT :: m (Maybe a) } 105newtype MaybeT m a = MaybeT { runMaybeT :: m (Maybe a) }
105 106