ccef06da41
Was able to reuse many of the android patches, but several had to be re-done. On Android, ghc is a stage2 build, so can compile, but not run TH code. But debian's ghc on armel cannot even compile TH code, so it has to be patched out. Some haskell packages have been updated to new versions, including yesod and DAV, and their patches had to be redone. The Makefile now has 2 new targets. The first is run on a companion x86 system to do the build and get TH splices. Then the second target is run the same source tree on the arm system to build without needing TH. This commit was sponsored by Svenne Krap.
82 lines
2.9 KiB
Diff
82 lines
2.9 KiB
Diff
From 8cc398092892377d5fdbda990a2e860155422afa Mon Sep 17 00:00:00 2001
|
|
From: foo <foo@bar>
|
|
Date: Sun, 22 Sep 2013 07:29:39 +0000
|
|
Subject: [PATCH] deal with TH
|
|
|
|
Export modules referenced by it.
|
|
|
|
Should not need these icons in git-annex, so not worth using the Evil
|
|
Splicer.
|
|
---
|
|
Network/Wai/Application/Static.hs | 4 ----
|
|
WaiAppStatic/Storage/Embedded.hs | 8 ++++----
|
|
wai-app-static.cabal | 4 +---
|
|
3 files changed, 5 insertions(+), 11 deletions(-)
|
|
|
|
diff --git a/Network/Wai/Application/Static.hs b/Network/Wai/Application/Static.hs
|
|
index f2fa743..1a82b30 100644
|
|
--- a/Network/Wai/Application/Static.hs
|
|
+++ b/Network/Wai/Application/Static.hs
|
|
@@ -33,8 +33,6 @@ import Control.Monad.IO.Class (liftIO)
|
|
|
|
import Blaze.ByteString.Builder (toByteString)
|
|
|
|
-import Data.FileEmbed (embedFile)
|
|
-
|
|
import Data.Text (Text)
|
|
import qualified Data.Text as T
|
|
|
|
@@ -198,8 +196,6 @@ staticAppPieces _ _ req
|
|
H.status405
|
|
[("Content-Type", "text/plain")]
|
|
"Only GET is supported"
|
|
-staticAppPieces _ [".hidden", "folder.png"] _ = return $ W.responseLBS H.status200 [("Content-Type", "image/png")] $ L.fromChunks [$(embedFile "images/folder.png")]
|
|
-staticAppPieces _ [".hidden", "haskell.png"] _ = return $ W.responseLBS H.status200 [("Content-Type", "image/png")] $ L.fromChunks [$(embedFile "images/haskell.png")]
|
|
staticAppPieces ss rawPieces req = liftIO $ do
|
|
case toPieces rawPieces of
|
|
Just pieces -> checkPieces ss pieces req >>= response
|
|
diff --git a/WaiAppStatic/Storage/Embedded.hs b/WaiAppStatic/Storage/Embedded.hs
|
|
index daa6e50..9873d4e 100644
|
|
--- a/WaiAppStatic/Storage/Embedded.hs
|
|
+++ b/WaiAppStatic/Storage/Embedded.hs
|
|
@@ -3,10 +3,10 @@ module WaiAppStatic.Storage.Embedded(
|
|
embeddedSettings
|
|
|
|
-- * Template Haskell
|
|
- , Etag
|
|
- , EmbeddableEntry(..)
|
|
- , mkSettings
|
|
+ --, Etag
|
|
+ --, EmbeddableEntry(..)
|
|
+ --, mkSettings
|
|
) where
|
|
|
|
import WaiAppStatic.Storage.Embedded.Runtime
|
|
-import WaiAppStatic.Storage.Embedded.TH
|
|
+--import WaiAppStatic.Storage.Embedded.TH
|
|
diff --git a/wai-app-static.cabal b/wai-app-static.cabal
|
|
index 5d81150..8f8c144 100644
|
|
--- a/wai-app-static.cabal
|
|
+++ b/wai-app-static.cabal
|
|
@@ -33,7 +33,6 @@ library
|
|
, containers >= 0.2
|
|
, time >= 1.1.4
|
|
, old-locale >= 1.0.0.2
|
|
- , file-embed >= 0.0.3.1
|
|
, text >= 0.7
|
|
, blaze-builder >= 0.2.1.4
|
|
, base64-bytestring >= 0.1
|
|
@@ -57,9 +56,8 @@ library
|
|
WaiAppStatic.Storage.Embedded
|
|
WaiAppStatic.Listing
|
|
WaiAppStatic.Types
|
|
- other-modules: Util
|
|
WaiAppStatic.Storage.Embedded.Runtime
|
|
- WaiAppStatic.Storage.Embedded.TH
|
|
+ other-modules: Util
|
|
ghc-options: -Wall
|
|
extensions: CPP
|
|
|
|
--
|
|
1.8.5.1
|
|
|