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

module Test.Mangrove.Html5Lib.Common
    ( dataFile
    ) where


import Paths_mangrove

import System.FilePath ( (</>) )


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