git.iko.soy/elk
on master help sign in
Make it clearer what kind of temp file it is
91e7d6bEvan Czaplicki
builder/src/Generate/Output.hs+2−2
compare with master
unifiedsplit
@@ -119,10 +119,10 @@ generateReplFile summary@(Summary.Summary _ project _ _ _) graph iface name =
119 let home = Module.Canonical (Project.getName project) "Elm_Repl"
119 let home = Module.Canonical (Project.getName project) "Elm_Repl"
120 let builder = Obj.generateForRepl objectGraph iface home name
120 let builder = Obj.generateForRepl objectGraph iface home name
121
121
122− liftIO $ IO.writeBuilder Paths.temp $
122+ liftIO $ IO.writeBuilder (Paths.temp "js") $
123 replRecovery <> "(function(){\n'use strict';" <> Functions.functions <> builder <> "}());"
123 replRecovery <> "(function(){\n'use strict';" <> Functions.functions <> builder <> "}());"
124
124
125− return Paths.temp
125+ return (Paths.temp "js")
126
126
127
127
128replRecovery :: B.Builder
128replRecovery :: B.Builder
builder/src/Stuff/Paths.hs+3−3
@@ -94,6 +94,6 @@ toArtifactPath root name ext =
94-- TEMP
94-- TEMP
95
95
96
96
97−temp :: FilePath
97+temp :: String -> FilePath
98−temp =
98+temp ext =
99− stuff </> "temp.js"
99+ stuff </> "temp" <.> ext