mangrove-0.1.0.0: test/Test/Mangrove/Unit/Common.hs

{-|
Description:    

Copyright:      (c) 2020 Samuel May
License:        MPL-2.0
Maintainer:     ag.eitilt@gmail.com

Stability:      experimental
Portability:    portable
-}
module Test.Mangrove.Unit.Common
    ( dataFile
    ) where


import Paths_mangrove

import System.FilePath ( (</>) )


dataFile :: FilePath -> IO FilePath
dataFile f = getDataFileName $ dataDir </> f
  where dataDir = "test" </> "unit"