mirror of
git://git.savannah.gnu.org/guix.git
synced 2023-12-14 03:33:07 +01:00
c902458863
This adds the elm compiler, version 0.19.0. This provides the `elm` command, with the exception of the `elm reactor` subcommand. Named `elm-compiler`, to leave space for `elm` as the full elm including reactor. * gnu/packages/elm.scm: New module. (elm-compiler): New package. * gnu/packages/patches/elm-disable-reactor.patch: New patch. * gnu/packages/patches/elm-fix-map-key.patch: New patch. * gnu/packages/patches/elm-relax-glsl-bound.patch: New patch. * gnu/local.mk: Add new files. Co-authored-by: Ludovic Courtès <ludo@gnu.org>
71 lines
1.8 KiB
Diff
71 lines
1.8 KiB
Diff
commit 20d80e2323b565a36751c9455e535d8f73fa32f7
|
|
Author: Robert Vollmert <rob@vllmrt.net>
|
|
Date: Fri Jun 14 16:05:47 2019 +0200
|
|
|
|
disable reactor
|
|
|
|
diff --git a/elm.cabal b/elm.cabal
|
|
index c75f9689..ece63c46 100644
|
|
--- a/elm.cabal
|
|
+++ b/elm.cabal
|
|
@@ -45,9 +45,6 @@ Executable elm
|
|
builder/src
|
|
ui/terminal/src
|
|
|
|
- other-extensions:
|
|
- TemplateHaskell
|
|
-
|
|
Main-Is:
|
|
Main.hs
|
|
|
|
@@ -56,8 +53,6 @@ Executable elm
|
|
Develop
|
|
Develop.Generate.Help
|
|
Develop.Generate.Index
|
|
- Develop.StaticFiles
|
|
- Develop.StaticFiles.Build
|
|
Diff
|
|
Init
|
|
Install
|
|
diff --git a/ui/terminal/src/Develop.hs b/ui/terminal/src/Develop.hs
|
|
index 4b2252e1..7ed7716e 100644
|
|
--- a/ui/terminal/src/Develop.hs
|
|
+++ b/ui/terminal/src/Develop.hs
|
|
@@ -23,7 +23,6 @@ import Snap.Util.FileServe
|
|
import qualified Elm.Project as Project
|
|
import qualified Develop.Generate.Help as Generate
|
|
import qualified Develop.Generate.Index as Index
|
|
-import qualified Develop.StaticFiles as StaticFiles
|
|
import qualified Generate.Output as Output
|
|
import qualified Json.Encode as Encode
|
|
import qualified Reporting.Exit as Exit
|
|
@@ -219,16 +218,7 @@ compileToHtmlBuilder mode file =
|
|
|
|
|
|
serveAssets :: Snap ()
|
|
-serveAssets =
|
|
- do file <- getSafePath
|
|
- case StaticFiles.lookup file of
|
|
- Nothing ->
|
|
- pass
|
|
-
|
|
- Just (content, mimeType) ->
|
|
- do modifyResponse (setContentType (mimeType <> ";charset=utf-8"))
|
|
- writeBS content
|
|
-
|
|
+serveAssets = pass
|
|
|
|
|
|
-- MIME TYPES
|
|
diff --git a/ui/terminal/src/Main.hs b/terminal/src/Main.hs
|
|
index 7000f3ca..2c76965a 100644
|
|
--- a/ui/terminal/src/Main.hs
|
|
+++ b/ui/terminal/src/Main.hs
|
|
@@ -39,7 +39,6 @@ main =
|
|
complex intro outro
|
|
[ repl
|
|
, init
|
|
- , reactor
|
|
, make
|
|
, install
|
|
, bump
|