packages feed

dunai-0.1.0.0: src/Data/Tuple/Util.hs

module Data.Tuple.Util where

assocR :: ((a, b), c) -> (a, (b, c))
assocR ((a, b), c) = (a, (b, c))

assocL :: (a, (b, c)) -> ((a, b), c)
assocL (a, (b, c)) = ((a, b), c)