hscdio-0.1.0.0: test/Test/Libcdio/Unit/Common.hs

{-|
Description:    

Copyright:      (c) 2019-2020 Sam May
License:        GPL-3.0-or-later
Maintainer:     ag@eitilt.life

Stability:      experimental
Portability:    portable
-}
module Test.Libcdio.Unit.Common where


dataDir :: FilePath
dataDir = "test/datafiles/unit/"

dataFile :: FilePath -> FilePath
dataFile = (++) dataDir


mapBoth :: (a -> b) -> (a, a) -> (b, b)
mapBoth f (l, r) = (f l, f r)