diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs index f71ec953f..32bae5a1c 100644 --- a/test/Database/Fill.hs +++ b/test/Database/Fill.hs @@ -33,9 +33,10 @@ import qualified Data.List as List (splitAt) import qualified Data.Conduit.Combinators as C -import System.Directory (getModificationTime) +import System.Directory (getModificationTime, doesDirectoryExist) import System.FilePath.Glob (glob) +import Paths_uniworx (getDataFileName) testdataFile :: MonadIO m => FilePath -> m FilePath testdataFile = liftIO . getDataFileName . ("testdata" )