BuildWidthTable: wait until the table is built before we create the output path

This commit is contained in:
Jonathan Daugherty 2020-03-06 09:35:33 -08:00
parent b5b980c9e8
commit 107be32423

View File

@ -111,12 +111,13 @@ main = do
exitFailure
Just path -> return path
let dir = takeDirectory outputPath
createDirectoryIfMissing True dir
putStrLn "Querying terminal:"
builtTable <- buildUnicodeWidthTable $ configBound config
let dir = takeDirectory outputPath
createDirectoryIfMissing True dir
writeUnicodeWidthTable outputPath builtTable
putStrLn $ "\nOutput table written to " <> outputPath
when (configUpdate config) $ do