@@ -6,7 +6,9 @@ import Data.Maybe (fromMaybe)
66#if !(MIN_VERSION_base(4,11,0))
77import Data.Semigroup ((<>))
88#endif
9+import System.Directory (createDirectoryIfMissing)
910import System.Environment (getArgs, getProgName)
11+import System.FilePath (takeDirectory)
1012import System.Exit (exitFailure)
1113import System.Console.GetOpt
1214import Text.Read (readMaybe)
@@ -89,6 +91,9 @@ main = do
8991 exitFailure
9092 Just path -> return path
9193
94+ let dir = takeDirectory outputPath
95+ createDirectoryIfMissing True dir
96+
9297 putStrLn "Querying terminal:"
9398 builtTable <- buildUnicodeWidthTable $ configBound config
9499 writeUnicodeWidthTable outputPath builtTable