Make it clearer what kind of temp file it is
commit91e7d6bf2e4485e64c0f2c1cf0351f2396e2e7c6
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateFri 6 Apr 2018, 17:47 (9 years ago)
parent4d8ad5c
builder/src/Generate/Output.hs+2−2
@@ -119,10 +119,10 @@ generateReplFile summary@(Summary.Summary _ project _ _ _) graph iface name =
119119 let home = Module.Canonical (Project.getName project) "Elm_Repl"
120120 let builder = Obj.generateForRepl objectGraph iface home name
121121
122− liftIO $ IO.writeBuilder Paths.temp $
122+ liftIO $ IO.writeBuilder (Paths.temp "js") $
123123 replRecovery <> "(function(){\n'use strict';" <> Functions.functions <> builder <> "}());"
124124
125− return Paths.temp
125+ return (Paths.temp "js")
126126
127127
128128replRecovery :: B.Builder
builder/src/Stuff/Paths.hs+3−3
@@ -94,6 +94,6 @@ toArtifactPath root name ext =
9494-- TEMP
9595
9696
97−temp :: FilePath
98−temp =
99− stuff </> "temp.js"
97+temp :: String -> FilePath
98+temp ext =
99+ stuff </> "temp" <.> ext