git.iko.soy/elk
on master help sign in
Rename editor-hints.json to deps-info.json
9699f23Evan Czaplicki
worker/src/Artifacts.hs+4−4
compare with master
unifiedsplit
@@ -3,7 +3,7 @@ module Artifacts
3 ( Artifacts(..)
3 ( Artifacts(..)
4 , loadCompile
4 , loadCompile
5 , loadRepl
5 , loadRepl
6− , toEditorHints
6+ , toDepsInfo
7 )
7 )
8 where
8 where
9
9
@@ -102,11 +102,11 @@ toUnique oneOrMore =
102
102
103
103
104
104
105−-- TO EDITOR HINTS
105+-- TO DEPS INFO
106
106
107
107
108−toEditorHints :: Artifacts -> BS.ByteString
108+toDepsInfo :: Artifacts -> BS.ByteString
109−toEditorHints (Artifacts ifaces _) =
109+toDepsInfo (Artifacts ifaces _) =
110 LBS.toStrict $ B.toLazyByteString $ E.encodeUgly $ encode ifaces
110 LBS.toStrict $ B.toLazyByteString $ E.encodeUgly $ encode ifaces
111
111
112
112
worker/src/Main.hs+2−2
@@ -24,14 +24,14 @@ main =
24 do rArtifacts <- Artifacts.loadRepl
24 do rArtifacts <- Artifacts.loadRepl
25 cArtifacts <- Artifacts.loadCompile
25 cArtifacts <- Artifacts.loadCompile
26 errorJS <- Compile.loadErrorJS
26 errorJS <- Compile.loadErrorJS
27− let editorHints = Artifacts.toEditorHints cArtifacts
27+ let depsInfo = Artifacts.toDepsInfo cArtifacts
28
28
29 httpServe config $ msum $
29 httpServe config $ msum $
30 [ ifTop $ status
30 [ ifTop $ status
31 , path "repl" $ Repl.endpoint rArtifacts
31 , path "repl" $ Repl.endpoint rArtifacts
32 , path "compile" $ Compile.endpoint cArtifacts
32 , path "compile" $ Compile.endpoint cArtifacts
33 , path "compile/errors.js" $ writeBS errorJS
33 , path "compile/errors.js" $ writeBS errorJS
34− , path "compile/editor-hints.json" $ writeBS editorHints
34+ , path "compile/deps-info.json" $ writeBS depsInfo
35 , notFound
35 , notFound
36 ]
36 ]
37
37