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 ()