copyDataFiles :: (MonadIO m,HaapStack t m) => Configuration -> Haap t m ()
copyDataFiles cfg = do
    datapath <- runBaseIO' $ getDataFileName ""
    xs <- runBaseIO' $ listDirectory datapath
    runBaseSh $ forM_ xs $ \x -> shCpRecursive (datapath </> x) (providerDirectory cfg </> x)
copyDataFiles :: (MonadIO m,HaapStack t m) => Configuration -> Haap t m ()
copyDataFiles cfg = do
    datapath <- runBaseIO' $ getDataFileName ""
    xs <- runBaseIO' $ listDirectory datapath
    runBaseSh $ forM_ xs $ \x -> shCpRecursive (datapath </> x) (providerDirectory cfg </> x)
copyDataFiles cfg = do
    datapath <- runBaseIO' $ getDataFileName ""
    xs <- runBaseIO' $ listDirectory datapath
    runBaseSh $ forM_ xs $ \x -> shCpRecursive (datapath </> x) (providerDirectory cfg </> x)