@@ -6,7 +6,9 @@ import Data.Maybe (fromMaybe)
6#if !(MIN_VERSION_base(4,11,0))
6#if !(MIN_VERSION_base(4,11,0))
7import Data.Semigroup ((<>))
7import Data.Semigroup ((<>))
9+import System.Directory (createDirectoryIfMissing)
9import System.Environment (getArgs, getProgName)
10import System.Environment (getArgs, getProgName)
11+import System.FilePath (takeDirectory)
10import System.Exit (exitFailure)
12import System.Exit (exitFailure)
11import System.Console.GetOpt
13import System.Console.GetOpt
12import Text.Read (readMaybe)
14import Text.Read (readMaybe)
@@ -89,6 +91,9 @@ main = do
89 exitFailure
91 exitFailure
90 Just path -> return path
92 Just path -> return path
94+ let dir = takeDirectory outputPath
95+ createDirectoryIfMissing True dir
92 putStrLn "Querying terminal:"
97 putStrLn "Querying terminal:"
93 builtTable <- buildUnicodeWidthTable $ configBound config
98 builtTable <- buildUnicodeWidthTable $ configBound config
94 writeUnicodeWidthTable outputPath builtTable
99 writeUnicodeWidthTable outputPath builtTable