containers-0.5.0.0: Data/StrictPair.hs
module Data.StrictPair (strictPair) where
-- | Evaluate both argument to WHNF and create a pair of the result.
strictPair :: a -> b -> (a, b)
strictPair x y = x `seq` y `seq` (x, y)
{-# INLINE strictPair #-}
module Data.StrictPair (strictPair) where
-- | Evaluate both argument to WHNF and create a pair of the result.
strictPair :: a -> b -> (a, b)
strictPair x y = x `seq` y `seq` (x, y)
{-# INLINE strictPair #-}