Commit | Line | Data |
---|---|---|
c9024588 RV |
1 | commit 20d80e2323b565a36751c9455e535d8f73fa32f7 |
2 | Author: Robert Vollmert <rob@vllmrt.net> | |
3 | Date: Fri Jun 14 16:05:47 2019 +0200 | |
4 | ||
5 | disable reactor | |
6 | ||
7 | diff --git a/elm.cabal b/elm.cabal | |
8 | index c75f9689..ece63c46 100644 | |
9 | --- a/elm.cabal | |
10 | +++ b/elm.cabal | |
11 | @@ -45,9 +45,6 @@ Executable elm | |
12 | builder/src | |
13 | ui/terminal/src | |
14 | ||
15 | - other-extensions: | |
16 | - TemplateHaskell | |
17 | - | |
18 | Main-Is: | |
19 | Main.hs | |
20 | ||
21 | @@ -56,8 +53,6 @@ Executable elm | |
22 | Develop | |
23 | Develop.Generate.Help | |
24 | Develop.Generate.Index | |
25 | - Develop.StaticFiles | |
26 | - Develop.StaticFiles.Build | |
27 | Diff | |
28 | Init | |
29 | Install | |
30 | diff --git a/ui/terminal/src/Develop.hs b/ui/terminal/src/Develop.hs | |
31 | index 4b2252e1..7ed7716e 100644 | |
32 | --- a/ui/terminal/src/Develop.hs | |
33 | +++ b/ui/terminal/src/Develop.hs | |
34 | @@ -23,7 +23,6 @@ import Snap.Util.FileServe | |
35 | import qualified Elm.Project as Project | |
36 | import qualified Develop.Generate.Help as Generate | |
37 | import qualified Develop.Generate.Index as Index | |
38 | -import qualified Develop.StaticFiles as StaticFiles | |
39 | import qualified Generate.Output as Output | |
40 | import qualified Json.Encode as Encode | |
41 | import qualified Reporting.Exit as Exit | |
42 | @@ -219,16 +218,7 @@ compileToHtmlBuilder mode file = | |
43 | ||
44 | ||
45 | serveAssets :: Snap () | |
46 | -serveAssets = | |
47 | - do file <- getSafePath | |
48 | - case StaticFiles.lookup file of | |
49 | - Nothing -> | |
50 | - pass | |
51 | - | |
52 | - Just (content, mimeType) -> | |
53 | - do modifyResponse (setContentType (mimeType <> ";charset=utf-8")) | |
54 | - writeBS content | |
55 | - | |
56 | +serveAssets = pass | |
57 | ||
58 | ||
59 | -- MIME TYPES | |
60 | diff --git a/ui/terminal/src/Main.hs b/terminal/src/Main.hs | |
61 | index 7000f3ca..2c76965a 100644 | |
62 | --- a/ui/terminal/src/Main.hs | |
63 | +++ b/ui/terminal/src/Main.hs | |
64 | @@ -39,7 +39,6 @@ main = | |
65 | complex intro outro | |
66 | [ repl | |
67 | , init | |
68 | - , reactor | |
69 | , make | |
70 | , install | |
71 | , bump |