We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 970bb55 commit a324d58Copy full SHA for a324d58
terminal/src/Make.hs
@@ -14,6 +14,7 @@ module Make
14
import qualified Data.ByteString.Builder as B
15
import qualified Data.Maybe as Maybe
16
import qualified Data.NonEmptyList as NE
17
+import qualified System.Directory as Dir
18
import qualified System.FilePath as FP
19
20
import qualified AST.Optimized as Opt
@@ -242,7 +243,8 @@ getNoMain modules main =
242
243
generate :: Reporting.Style -> FilePath -> B.Builder -> NE.List ModuleName.Raw -> Task ()
244
generate style target builder names =
245
Task.io $
- do File.writeBuilder target builder
246
+ do Dir.createDirectoryIfMissing True (FP.takeDirectory target)
247
+ File.writeBuilder target builder
248
Reporting.reportGenerate style names target
249
250
0 commit comments