1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
| | From 6edf6711f08a5c67400f0eb087c9e966aa93b05a Mon Sep 17 00:00:00 2001
From: Robert Vollmert <rob@vllmrt.net>
Date: Sat, 12 Dec 2020 07:24:30 -0800
Subject: [PATCH] disable reactor
---
elm.cabal | 5 -----
terminal/src/Develop.hs | 12 +-----------
terminal/src/Main.hs | 1 -
3 files changed, 1 insertion(+), 17 deletions(-)
diff --git a/elm.cabal b/elm.cabal
index bf1cfcf0..8f7b2bd5 100644
--- a/elm.cabal
+++ b/elm.cabal
@@ -48,9 +48,6 @@ Executable elm
terminal/impl
terminal/src
- other-extensions:
- TemplateHaskell
-
Main-Is:
Main.hs
@@ -74,8 +71,6 @@ Executable elm
-- from terminal/
Develop.Generate.Help
Develop.Generate.Index
- Develop.StaticFiles
- Develop.StaticFiles.Build
-- from builder/
Build
diff --git a/terminal/src/Develop.hs b/terminal/src/Develop.hs
index 00339364..167de693 100644
--- a/terminal/src/Develop.hs
+++ b/terminal/src/Develop.hs
@@ -25,7 +25,6 @@ import qualified Build
import qualified Elm.Details as Details
import qualified Develop.Generate.Help as Help
import qualified Develop.Generate.Index as Index
-import qualified Develop.StaticFiles as StaticFiles
import qualified Generate.Html as Html
import qualified Generate
import qualified Reporting
@@ -170,16 +169,7 @@ compile path =
serveAssets :: Snap ()
-serveAssets =
- do path <- getSafePath
- case StaticFiles.lookup path of
- Nothing ->
- pass
-
- Just (content, mimeType) ->
- do modifyResponse (setContentType (mimeType <> ";charset=utf-8"))
- writeBS content
-
+serveAssets = pass
-- MIME TYPES
diff --git a/terminal/src/Main.hs b/terminal/src/Main.hs
index e2d3f408..cd078422 100644
--- a/terminal/src/Main.hs
+++ b/terminal/src/Main.hs
@@ -34,7 +34,6 @@ main =
Terminal.app intro outro
[ repl
, init
- , reactor
, make
, install
, bump
--
2.29.2
|