module HaskellWorks.CabalCache.Data.List
  ( tuple2ToDL
  , tuple2ToList
  ) where

tuple2ToDL :: (a, a) -> [a] -> [a]
tuple2ToDL :: (a, a) -> [a] -> [a]
tuple2ToDL (a
a, a
b) = (a
aa -> [a] -> [a]
forall a. a -> [a] -> [a]
:) ([a] -> [a]) -> ([a] -> [a]) -> [a] -> [a]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (a
ba -> [a] -> [a]
forall a. a -> [a] -> [a]
:)

tuple2ToList :: (a, a) -> [a]
tuple2ToList :: (a, a) -> [a]
tuple2ToList (a, a)
ab = (a, a) -> [a] -> [a]
forall a. (a, a) -> [a] -> [a]
tuple2ToDL (a, a)
ab []