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