12 lines
299 B
Haskell
12 lines
299 B
Haskell
module StrictHelp where
|
|
|
|
{- | In order to force a list, apply with seq. -}
|
|
forceSpine :: Foldable t => t a -> ()
|
|
forceSpine = foldr (const id) ()
|
|
|
|
forceFoldable :: Foldable t => t a -> t a
|
|
forceFoldable f = forceSpine f `seq` f
|
|
|
|
forceElements :: Foldable t => t a -> ()
|
|
forceElements = foldr seq ()
|