@@ -14,6 +14,7 @@ module Make
14import qualified Data.ByteString.Builder as B
14import qualified Data.ByteString.Builder as B
15import qualified Data.Maybe as Maybe
15import qualified Data.Maybe as Maybe
16import qualified Data.NonEmptyList as NE
16import qualified Data.NonEmptyList as NE
17+import qualified System.Directory as Dir
17import qualified System.FilePath as FP
18import qualified System.FilePath as FP
19import qualified AST.Optimized as Opt
20import qualified AST.Optimized as Opt
@@ -242,7 +243,8 @@ getNoMain modules main =
242generate :: Reporting.Style -> FilePath -> B.Builder -> NE.List ModuleName.Raw -> Task ()
243generate :: Reporting.Style -> FilePath -> B.Builder -> NE.List ModuleName.Raw -> Task ()
243generate style target builder names =
244generate style target builder names =
244 Task.io $
245 Task.io $
246+ do Dir.createDirectoryIfMissing True (FP.takeDirectory target)
245− do File.writeBuilder target builder
247+ File.writeBuilder target builder
246 Reporting.reportGenerate style names target
248 Reporting.reportGenerate style names target