From fb5cd5558c7db634497f2b7d97489fc023ce59d6 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Tue, 28 Sep 2021 16:33:03 +0200 Subject: [PATCH] fix(build): fix botched merge in fill --- test/Database/Fill.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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" )