mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refreshed android patches

Browse source
This commit is contained in:
Joey Hess 2013-12-27 00:32:29 -04:00
parent 6c3e11abaf
commit 01bd650e2d
7 changed files with 118 additions and 703 deletions
Download patch file Download diff file Expand all files Collapse all files

25
standalone/android/haskell-patches/async_fix-build-with-new-ghc.patch
View file

@ -1,25 +0,0 @@
From 0035f0366e426af213244b2eb25ffb63cb9e74d0 Mon Sep 17 00:00:00 2001
From: foo <foo@bar>
Date: Sun, 22 Sep 2013 06:14:50 +0000
Subject: [PATCH] fix build with new ghc
---
async.cabal | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/async.cabal b/async.cabal
index 8e47d9d..98e6312 100644
--- a/async.cabal
+++ b/async.cabal
@@ -70,7 +70,7 @@ source-repository head
library
exposed-modules: Control.Concurrent.Async
- build-depends: base >= 4.3 && < 4.7, stm >= 2.2 && < 2.5
+ build-depends: base >= 4.3 && < 4.9, stm >= 2.2 && < 2.5
test-suite test-async
type: exitcode-stdio-1.0
--
1.7.10.4

58
standalone/android/haskell-patches/crypto-numbers_build-fix.patch
View file

@ -1,29 +1,20 @@
From f6ed5c3093111ffe0276f5b5bb6241783611ab1c Mon Sep 17 00:00:00 2001 From 0cfdb30120976290068f4bcbebbf236b960afbb6 Mon Sep 17 00:00:00 2001
From: androidbuilder <androidbuilder@example.com> From: dummy <dummy@example.com>
Date: Mon, 11 Nov 2013 01:54:25 +0000 Date: Thu, 26 Dec 2013 20:01:30 -0400
Subject: [PATCH] hack to build Subject: [PATCH] hack to build
--- ---
Crypto/Number/Basic.hs | 17 ----------------- Crypto/Number/Basic.hs | 14 --------------
Crypto/Number/ModArithmetic.hs | 29 ----------------------------- Crypto/Number/ModArithmetic.hs | 29 -----------------------------
Crypto/Number/Prime.hs | 18 ------------------ Crypto/Number/Prime.hs | 18 ------------------
crypto-numbers.cabal | 2 +- crypto-numbers.cabal | 2 +-
4 files changed, 1 insertion(+), 65 deletions(-) 4 files changed, 1 insertion(+), 62 deletions(-)
diff --git a/Crypto/Number/Basic.hs b/Crypto/Number/Basic.hs diff --git a/Crypto/Number/Basic.hs b/Crypto/Number/Basic.hs
index af03052..5de8518 100644 index 65c14b3..eaee853 100644
--- a/Crypto/Number/Basic.hs --- a/Crypto/Number/Basic.hs
+++ b/Crypto/Number/Basic.hs +++ b/Crypto/Number/Basic.hs
@@ -1,8 +1,5 @@ @@ -20,11 +20,7 @@ module Crypto.Number.Basic
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE CPP #-}
-#if MIN_VERSION_integer_gmp(0,5,1)
-{-# LANGUAGE UnboxedTuples #-}
-#endif
-- |
-- Module : Crypto.Number.Basic
-- License : BSD-style
@@ -17,11 +14,7 @@ module Crypto.Number.Basic
, areEven , areEven
) where ) where
@ -35,7 +26,7 @@ index af03052..5de8518 100644
-- | sqrti returns two integer (l,b) so that l <= sqrt i <= b -- | sqrti returns two integer (l,b) so that l <= sqrt i <= b
-- the implementation is quite naive, use an approximation for the first number -- the implementation is quite naive, use an approximation for the first number
@@ -60,25 +53,16 @@ sqrti i @@ -63,25 +59,16 @@ sqrti i
-- gcde 'a' 'b' find (x,y,gcd(a,b)) where ax + by = d -- gcde 'a' 'b' find (x,y,gcd(a,b)) where ax + by = d
-- --
gcde :: Integer -> Integer -> (Integer, Integer, Integer) gcde :: Integer -> Integer -> (Integer, Integer, Integer)
@ -61,7 +52,7 @@ index af03052..5de8518 100644
gcde_binary a' b' gcde_binary a' b'
| b' == 0 = (1,0,a') | b' == 0 = (1,0,a')
| a' >= b' = compute a' b' | a' >= b' = compute a' b'
@@ -102,7 +86,6 @@ gcde_binary a' b' @@ -105,7 +92,6 @@ gcde_binary a' b'
in if u2 >= v2 in if u2 >= v2
then loop g x y (u2 - v2) v2 (a2 - c2) (b2 - d2) c2 d2 then loop g x y (u2 - v2) v2 (a2 - c2) (b2 - d2) c2 d2
else loop g x y u2 (v2 - u2) a2 b2 (c2 - a2) (d2 - b2) else loop g x y u2 (v2 - u2) a2 b2 (c2 - a2) (d2 - b2)
@ -70,10 +61,10 @@ index af03052..5de8518 100644
-- | check if a list of integer are all even -- | check if a list of integer are all even
areEven :: [Integer] -> Bool areEven :: [Integer] -> Bool
diff --git a/Crypto/Number/ModArithmetic.hs b/Crypto/Number/ModArithmetic.hs diff --git a/Crypto/Number/ModArithmetic.hs b/Crypto/Number/ModArithmetic.hs
index 031f477..38b22b7 100644 index 942c12f..f8cfc32 100644
--- a/Crypto/Number/ModArithmetic.hs --- a/Crypto/Number/ModArithmetic.hs
+++ b/Crypto/Number/ModArithmetic.hs +++ b/Crypto/Number/ModArithmetic.hs
@@ -26,12 +26,8 @@ module Crypto.Number.ModArithmetic @@ -29,12 +29,8 @@ module Crypto.Number.ModArithmetic
import Control.Exception (throw, Exception) import Control.Exception (throw, Exception)
import Data.Typeable import Data.Typeable
@ -86,7 +77,7 @@ index 031f477..38b22b7 100644
-- | Raised when two numbers are supposed to be coprimes but are not. -- | Raised when two numbers are supposed to be coprimes but are not.
data CoprimesAssertionError = CoprimesAssertionError data CoprimesAssertionError = CoprimesAssertionError
@@ -52,13 +48,7 @@ expSafe :: Integer -- ^ base @@ -55,13 +51,7 @@ expSafe :: Integer -- ^ base
-> Integer -- ^ exponant -> Integer -- ^ exponant
-> Integer -- ^ modulo -> Integer -- ^ modulo
-> Integer -- ^ result -> Integer -- ^ result
@ -100,7 +91,7 @@ index 031f477..38b22b7 100644
-- | Compute the modular exponentiation of base^exponant using -- | Compute the modular exponentiation of base^exponant using
-- the fastest algorithm without any consideration for -- the fastest algorithm without any consideration for
@@ -71,11 +61,7 @@ expFast :: Integer -- ^ base @@ -74,11 +64,7 @@ expFast :: Integer -- ^ base
-> Integer -- ^ modulo -> Integer -- ^ modulo
-> Integer -- ^ result -> Integer -- ^ result
expFast = expFast =
@ -112,7 +103,7 @@ index 031f477..38b22b7 100644
-- note on exponentiation: 0^0 is treated as 1 for mimicking the standard library; -- note on exponentiation: 0^0 is treated as 1 for mimicking the standard library;
-- the mathematic debate is still open on whether or not this is true, but pratically -- the mathematic debate is still open on whether or not this is true, but pratically
@@ -84,22 +70,15 @@ expFast = @@ -87,22 +73,15 @@ expFast =
-- | exponentiation_rtl_binary computes modular exponentiation as b^e mod m -- | exponentiation_rtl_binary computes modular exponentiation as b^e mod m
-- using the right-to-left binary exponentiation algorithm (HAC 14.79) -- using the right-to-left binary exponentiation algorithm (HAC 14.79)
exponentiation_rtl_binary :: Integer -> Integer -> Integer -> Integer exponentiation_rtl_binary :: Integer -> Integer -> Integer -> Integer
@ -135,7 +126,7 @@ index 031f477..38b22b7 100644
exponentiation b e m exponentiation b e m
| b == 1 = b | b == 1 = b
| e == 0 = 1 | e == 0 = 1
@@ -107,7 +86,6 @@ exponentiation b e m @@ -110,7 +89,6 @@ exponentiation b e m
| even e = let p = (exponentiation b (e `div` 2) m) `mod` m | even e = let p = (exponentiation b (e `div` 2) m) `mod` m
in (p^(2::Integer)) `mod` m in (p^(2::Integer)) `mod` m
| otherwise = (b * exponentiation b (e-1) m) `mod` m | otherwise = (b * exponentiation b (e-1) m) `mod` m
@ -143,7 +134,7 @@ index 031f477..38b22b7 100644
--{-# DEPRECATED exponantiation_rtl_binary "typo in API name it's called exponentiation_rtl_binary #-} --{-# DEPRECATED exponantiation_rtl_binary "typo in API name it's called exponentiation_rtl_binary #-}
exponantiation_rtl_binary :: Integer -> Integer -> Integer -> Integer exponantiation_rtl_binary :: Integer -> Integer -> Integer -> Integer
@@ -119,17 +97,10 @@ exponantiation = exponentiation @@ -122,17 +100,10 @@ exponantiation = exponentiation
-- | inverse computes the modular inverse as in g^(-1) mod m -- | inverse computes the modular inverse as in g^(-1) mod m
inverse :: Integer -> Integer -> Maybe Integer inverse :: Integer -> Integer -> Maybe Integer
@ -162,19 +153,20 @@ index 031f477..38b22b7 100644
-- | Compute the modular inverse of 2 coprime numbers. -- | Compute the modular inverse of 2 coprime numbers.
-- This is equivalent to inverse except that the result -- This is equivalent to inverse except that the result
diff --git a/Crypto/Number/Prime.hs b/Crypto/Number/Prime.hs diff --git a/Crypto/Number/Prime.hs b/Crypto/Number/Prime.hs
index 2060f4d..61d37c0 100644 index 0cea9da..458c94d 100644
--- a/Crypto/Number/Prime.hs --- a/Crypto/Number/Prime.hs
+++ b/Crypto/Number/Prime.hs +++ b/Crypto/Number/Prime.hs
@@ -1,8 +1,6 @@ @@ -3,9 +3,7 @@
{-# LANGUAGE CPP #-} #ifndef MIN_VERSION_integer_gmp
{-# LANGUAGE BangPatterns #-} #define MIN_VERSION_integer_gmp(a,b,c) 0
#endif
-#if MIN_VERSION_integer_gmp(0,5,1) -#if MIN_VERSION_integer_gmp(0,5,1)
{-# LANGUAGE MagicHash #-} {-# LANGUAGE MagicHash #-}
-#endif -#endif
-- | -- |
-- Module : Crypto.Number.Prime -- Module : Crypto.Number.Prime
-- License : BSD-style -- License : BSD-style
@@ -27,12 +25,7 @@ import Crypto.Number.Generate @@ -30,12 +28,7 @@ import Crypto.Number.Generate
import Crypto.Number.Basic (sqrti, gcde_binary) import Crypto.Number.Basic (sqrti, gcde_binary)
import Crypto.Number.ModArithmetic (exponantiation) import Crypto.Number.ModArithmetic (exponantiation)
@ -187,7 +179,7 @@ index 2060f4d..61d37c0 100644
-- | returns if the number is probably prime. -- | returns if the number is probably prime.
-- first a list of small primes are implicitely tested for divisibility, -- first a list of small primes are implicitely tested for divisibility,
@@ -75,21 +68,11 @@ findPrimeFromWith rng prop !n @@ -78,21 +71,11 @@ findPrimeFromWith rng prop !n
-- | find a prime from a starting point with no specific property. -- | find a prime from a starting point with no specific property.
findPrimeFrom :: CPRG g => g -> Integer -> (Integer, g) findPrimeFrom :: CPRG g => g -> Integer -> (Integer, g)
findPrimeFrom rng n = findPrimeFrom rng n =
@ -209,7 +201,7 @@ index 2060f4d..61d37c0 100644
primalityTestMillerRabin rng tries !n primalityTestMillerRabin rng tries !n
| n <= 3 = error "Miller-Rabin requires tested value to be > 3" | n <= 3 = error "Miller-Rabin requires tested value to be > 3"
| even n = (False, rng) | even n = (False, rng)
@@ -126,7 +109,6 @@ primalityTestMillerRabin rng tries !n @@ -129,7 +112,6 @@ primalityTestMillerRabin rng tries !n
| x2 == 1 = False | x2 == 1 = False
| x2 /= nm1 = loop' ws ((x2*x2) `mod` n) (r+1) | x2 /= nm1 = loop' ws ((x2*x2) `mod` n) (r+1)
| otherwise = loop ws | otherwise = loop ws
@ -218,7 +210,7 @@ index 2060f4d..61d37c0 100644
{- {-
n < z -> witness to test n < z -> witness to test
diff --git a/crypto-numbers.cabal b/crypto-numbers.cabal diff --git a/crypto-numbers.cabal b/crypto-numbers.cabal
index 05c00c1..8da5e2a 100644 index 9610e34..6669d78 100644
--- a/crypto-numbers.cabal --- a/crypto-numbers.cabal
+++ b/crypto-numbers.cabal +++ b/crypto-numbers.cabal
@@ -15,7 +15,7 @@ Extra-Source-Files: Tests/*.hs @@ -15,7 +15,7 @@ Extra-Source-Files: Tests/*.hs

7
standalone/android/install-haskell-packages
View file

@ -85,6 +85,7 @@ install_pkgs () {
patched wai-app-static patched wai-app-static
patched shakespeare patched shakespeare
patched shakespeare-css patched shakespeare-css
patched shakespeare-js
patched yesod-routes patched yesod-routes
patched yesod-core patched yesod-core
patched yesod-persistent patched yesod-persistent
@ -92,12 +93,14 @@ install_pkgs () {
patched crypto-numbers patched crypto-numbers
patched yesod-auth patched yesod-auth
patched yesod patched yesod
patched async patched process-conduit
patched gnuidn patched gnuidn
patched DAV patched DAV
patched language-javascript patched shakespeare-text
patched yesod-static
patched uuid patched uuid
patched dns patched dns
patched gnutls
cd .. cd ..

29
standalone/no-th/haskell-patches/yesod-routes_export-module-referenced-by-TH-splices.patch
View file

@ -1,29 +0,0 @@
From f6bfe8e01d8fe6d129ad3819070aa17934094a0a Mon Sep 17 00:00:00 2001
From: foo <foo@bar>
Date: Sun, 22 Sep 2013 06:24:09 +0000
Subject: [PATCH] export module referenced by TH splices
---
yesod-routes.cabal | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/yesod-routes.cabal b/yesod-routes.cabal
index 0b245f2..a97582a 100644
--- a/yesod-routes.cabal
+++ b/yesod-routes.cabal
@@ -27,11 +27,11 @@ library
Yesod.Routes.Class
Yesod.Routes.Parse
Yesod.Routes.Overlap
+ Yesod.Routes.TH.Types
other-modules: Yesod.Routes.TH.Dispatch
Yesod.Routes.TH.RenderRoute
Yesod.Routes.TH.ParseRoute
Yesod.Routes.TH.RouteAttrs
- Yesod.Routes.TH.Types
ghc-options: -Wall
test-suite runtests
--
1.7.10.4

29
standalone/no-th/haskell-patches/yesod-routes_remove-TH.patch
View file

@ -1,17 +1,17 @@
From acebcf203b270d00aac0a29be48832ae2c64ce7e Mon Sep 17 00:00:00 2001 From 8ba08c0efc035486a65f2fd33916a5da7e5210e7 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net> From: dummy <dummy@example.com>
Date: Tue, 17 Dec 2013 06:57:07 +0000 Date: Thu, 26 Dec 2013 19:32:55 -0400
Subject: [PATCH] remove TH Subject: [PATCH] remove TH
--- ---
Yesod/Routes/Parse.hs | 39 +++++---------------------------------- Yesod/Routes/Parse.hs | 40 +++++-----------------------------------
Yesod/Routes/TH.hs | 16 ++++++++-------- Yesod/Routes/TH.hs | 16 ++++++++--------
Yesod/Routes/TH/Types.hs | 16 ---------------- Yesod/Routes/TH/Types.hs | 16 ----------------
yesod-routes.cabal | 4 ---- yesod-routes.cabal | 4 ----
4 files changed, 13 insertions(+), 62 deletions(-) 4 files changed, 13 insertions(+), 63 deletions(-)
diff --git a/Yesod/Routes/Parse.hs b/Yesod/Routes/Parse.hs diff --git a/Yesod/Routes/Parse.hs b/Yesod/Routes/Parse.hs
index 3d27980..c2e3e6d 100644 index 232982d..7df7750 100644
--- a/Yesod/Routes/Parse.hs --- a/Yesod/Routes/Parse.hs
+++ b/Yesod/Routes/Parse.hs +++ b/Yesod/Routes/Parse.hs
@@ -2,11 +2,11 @@ @@ -2,11 +2,11 @@
@ -31,7 +31,7 @@ index 3d27980..c2e3e6d 100644
, parseTypeTree , parseTypeTree
, TypeTree (..) , TypeTree (..)
) where ) where
@@ -19,41 +19,12 @@ import Yesod.Routes.TH @@ -19,42 +19,12 @@ import Yesod.Routes.TH
import Yesod.Routes.Overlap (findOverlapNames) import Yesod.Routes.Overlap (findOverlapNames)
import Data.List (foldl') import Data.List (foldl')
@ -45,7 +45,7 @@ index 3d27980..c2e3e6d 100644
- let res = resourcesFromString s - let res = resourcesFromString s
- case findOverlapNames res of - case findOverlapNames res of
- [] -> lift res - [] -> lift res
- z -> error $ "Overlapping routes: " ++ unlines (map show z) - z -> error $ unlines $ "Overlapping routes: " : map show z
- -
-parseRoutesFile :: FilePath -> Q Exp -parseRoutesFile :: FilePath -> Q Exp
-parseRoutesFile = parseRoutesFileWith parseRoutes -parseRoutesFile = parseRoutesFileWith parseRoutes
@ -70,9 +70,10 @@ index 3d27980..c2e3e6d 100644
-parseRoutesNoCheck = QuasiQuoter -parseRoutesNoCheck = QuasiQuoter
- { quoteExp = lift . resourcesFromString - { quoteExp = lift . resourcesFromString
- } - }
-
-- | Convert a multi-line string to a set of resources. See documentation for -- | Convert a multi-line string to a set of resources. See documentation for
-- the format of this string. This is a partial function which calls 'error' on -- the format of this string. This is a partial function which calls 'error' on
-- invalid input.
diff --git a/Yesod/Routes/TH.hs b/Yesod/Routes/TH.hs diff --git a/Yesod/Routes/TH.hs b/Yesod/Routes/TH.hs
index 7b2e50b..b05fc57 100644 index 7b2e50b..b05fc57 100644
--- a/Yesod/Routes/TH.hs --- a/Yesod/Routes/TH.hs
@ -150,20 +151,20 @@ index d0a0405..3232e99 100644
resourceMulti Resource { resourceDispatch = Methods (Just t) _ } = Just t resourceMulti Resource { resourceDispatch = Methods (Just t) _ } = Just t
resourceMulti _ = Nothing resourceMulti _ = Nothing
diff --git a/yesod-routes.cabal b/yesod-routes.cabal diff --git a/yesod-routes.cabal b/yesod-routes.cabal
index 0e44409..e01ea06 100644 index 61980d1..33d2380 100644
--- a/yesod-routes.cabal --- a/yesod-routes.cabal
+++ b/yesod-routes.cabal +++ b/yesod-routes.cabal
@@ -28,10 +28,6 @@ library @@ -27,10 +27,6 @@ library
Yesod.Routes.Class
Yesod.Routes.Parse Yesod.Routes.Parse
Yesod.Routes.Overlap Yesod.Routes.Overlap
Yesod.Routes.TH.Types
- other-modules: Yesod.Routes.TH.Dispatch - other-modules: Yesod.Routes.TH.Dispatch
- Yesod.Routes.TH.RenderRoute - Yesod.Routes.TH.RenderRoute
- Yesod.Routes.TH.ParseRoute - Yesod.Routes.TH.ParseRoute
- Yesod.Routes.TH.RouteAttrs - Yesod.Routes.TH.RouteAttrs
Yesod.Routes.TH.Types
ghc-options: -Wall ghc-options: -Wall
test-suite runtests
-- --
1.8.5.1 1.7.10.4

70
standalone/no-th/haskell-patches/yesod-static_hack.patch Normal file
View file

@ -0,0 +1,70 @@
From 4ea1e94794b59ba4eb0dab7384c4195a224f468d Mon Sep 17 00:00:00 2001
From: androidbuilder <androidbuilder@example.com>
Date: Fri, 27 Dec 2013 00:28:51 -0400
Subject: [PATCH] avoid building with jsmin
jsmin needs language-javascript, which fails to build for android due to
a problem or incompatability with happy.
This also avoids all the TH code.
---
Yesod/EmbeddedStatic/Generators.hs | 3 +--
yesod-static.cabal | 7 -------
2 files changed, 1 insertion(+), 9 deletions(-)
diff --git a/Yesod/EmbeddedStatic/Generators.hs b/Yesod/EmbeddedStatic/Generators.hs
index e83785d..6b1c10e 100644
--- a/Yesod/EmbeddedStatic/Generators.hs
+++ b/Yesod/EmbeddedStatic/Generators.hs
@@ -43,7 +43,6 @@ import Language.Haskell.TH
import Network.Mime (defaultMimeLookup)
import System.Directory (doesDirectoryExist, getDirectoryContents, findExecutable)
import System.FilePath ((</>))
-import Text.Jasmine (minifym)
import qualified Data.ByteString.Lazy as BL
import qualified Data.Conduit.List as C
import qualified Data.Text as T
@@ -158,7 +157,7 @@ concatFilesWith loc process files = do
-- | Convienient rexport of 'minifym' with a type signature to work with 'concatFilesWith'.
jasmine :: BL.ByteString -> IO BL.ByteString
-jasmine ct = return $ either (const ct) id $ minifym ct
+jasmine ct = return ct
-- | Use <https://github.com/mishoo/UglifyJS2 UglifyJS2> to compress javascript.
-- Assumes @uglifyjs@ is located in the path and uses options @[\"-m\", \"-c\"]@
diff --git a/yesod-static.cabal b/yesod-static.cabal
index df05ecf..31abe1a 100644
--- a/yesod-static.cabal
+++ b/yesod-static.cabal
@@ -48,18 +48,12 @@ library
, data-default
, shakespeare-css >= 1.0.3
, mime-types >= 0.1
- , hjsmin
, process-conduit >= 1.0 && < 1.1
, filepath >= 1.3
, resourcet >= 0.4
, unordered-containers >= 0.2
exposed-modules: Yesod.Static
- Yesod.EmbeddedStatic
- Yesod.EmbeddedStatic.Generators
- Yesod.EmbeddedStatic.Types
-
- other-modules: Yesod.EmbeddedStatic.Internal
ghc-options: -Wall
extensions: TemplateHaskell
@@ -99,7 +93,6 @@ test-suite tests
, data-default
, shakespeare-css
, mime-types
- , hjsmin
, process-conduit
, filepath
, resourcet
--
1.7.10.4

597
standalone/no-th/haskell-patches/yesod-static_remove-TH.patch
View file

@ -1,597 +0,0 @@
From ad0166a6e537021c9f5a1e01cde4b7c520edcf3a Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 18 Dec 2013 05:10:59 +0000
Subject: [PATCH] remove TH
---
Yesod/EmbeddedStatic.hs | 64 -----------
Yesod/EmbeddedStatic/Generators.hs | 102 +----------------
Yesod/EmbeddedStatic/Internal.hs | 41 -------
Yesod/EmbeddedStatic/Types.hs | 14 ---
Yesod/Static.hs | 224 +------------------------------------
5 files changed, 12 insertions(+), 433 deletions(-)
diff --git a/Yesod/EmbeddedStatic.hs b/Yesod/EmbeddedStatic.hs
index e819630..a564d4b 100644
--- a/Yesod/EmbeddedStatic.hs
+++ b/Yesod/EmbeddedStatic.hs
@@ -41,7 +41,6 @@ module Yesod.EmbeddedStatic (
-- * Subsite
EmbeddedStatic
, embeddedResourceR
- , mkEmbeddedStatic
, embedStaticContent
-- * Generators
@@ -91,69 +90,6 @@ instance Yesod master => YesodSubDispatch EmbeddedStatic (HandlerT master IO) wh
("widget":_) -> staticApp (widgetSettings site) req
_ -> return $ responseLBS status404 [] "Not Found"
--- | Create the haskell variable for the link to the entry
-mkRoute :: ComputedEntry -> Q [Dec]
-mkRoute (ComputedEntry { cHaskellName = Nothing }) = return []
-mkRoute (c@ComputedEntry { cHaskellName = Just name }) = do
- routeType <- [t| Route EmbeddedStatic |]
- link <- [| $(cLink c) |]
- return [ SigD name routeType
- , ValD (VarP name) (NormalB link) []
- ]
-
--- | Creates an 'EmbeddedStatic' by running, at compile time, a list of generators.
--- Each generator produces a list of entries to embed into the executable.
---
--- This template haskell splice creates a variable binding holding the resulting
--- 'EmbeddedStatic' and in addition creates variable bindings for all the routes
--- produced by the generators. For example, if a directory called static has
--- the following contents:
---
--- * js/jquery.js
---
--- * css/bootstrap.css
---
--- * img/logo.png
---
--- then a call to
---
--- > #ifdef DEVELOPMENT
--- > #define DEV_BOOL True
--- > #else
--- > #define DEV_BOOL False
--- > #endif
--- > mkEmbeddedStatic DEV_BOOL "myStatic" [embedDir "static"]
---
--- will produce variables
---
--- > myStatic :: EmbeddedStatic
--- > js_jquery_js :: Route EmbeddedStatic
--- > css_bootstrap_css :: Route EmbeddedStatic
--- > img_logo_png :: Route EmbeddedStatic
-mkEmbeddedStatic :: Bool -- ^ development?
- -> String -- ^ variable name for the created 'EmbeddedStatic'
- -> [Generator] -- ^ the generators (see "Yesod.EmbeddedStatic.Generators")
- -> Q [Dec]
-mkEmbeddedStatic dev esName gen = do
- entries <- concat <$> sequence gen
- computed <- runIO $ mapM (if dev then devEmbed else prodEmbed) entries
-
- let settings = Static.mkSettings $ return $ map cStEntry computed
- devExtra = listE $ catMaybes $ map ebDevelExtraFiles entries
- ioRef = [| unsafePerformIO $ newIORef M.empty |]
-
- -- build the embedded static
- esType <- [t| EmbeddedStatic |]
- esCreate <- if dev
- then [| EmbeddedStatic (develApp $settings $devExtra) $ioRef |]
- else [| EmbeddedStatic (staticApp $! $settings) $ioRef |]
- let es = [ SigD (mkName esName) esType
- , ValD (VarP $ mkName esName) (NormalB esCreate) []
- ]
-
- routes <- mapM mkRoute computed
-
- return $ es ++ concat routes
-- | Use this for 'addStaticContent' to have the widget static content be served by
-- the embedded static subsite. For example,
diff --git a/Yesod/EmbeddedStatic/Generators.hs b/Yesod/EmbeddedStatic/Generators.hs
index e83785d..bc35359 100644
--- a/Yesod/EmbeddedStatic/Generators.hs
+++ b/Yesod/EmbeddedStatic/Generators.hs
@@ -6,12 +6,12 @@
module Yesod.EmbeddedStatic.Generators (
-- * Generators
Location
- , embedFile
- , embedFileAt
- , embedDir
- , embedDirAt
- , concatFiles
- , concatFilesWith
+ --, embedFile
+ --, embedFileAt
+ --, embedDir
+ --, embedDirAt
+ --, concatFiles
+ --, concatFilesWith
-- * Compression options for 'concatFilesWith'
, jasmine
@@ -50,28 +50,6 @@ import qualified Data.Text as T
import Yesod.EmbeddedStatic.Types
--- | Embed a single file. Equivalent to passing the same string twice to 'embedFileAt'.
-embedFile :: FilePath -> Generator
-embedFile f = embedFileAt f f
-
--- | Embed a single file at a given location within the static subsite and generate a
--- route variable based on the location via 'pathToName'. The @FilePath@ must be a relative
--- path to the directory in which you run @cabal build@. During development, the file located
--- at this filepath will be reloaded on every request. When compiling for production, the contents
--- of the file will be embedded into the executable and so the file does not need to be
--- distributed along with the executable.
-embedFileAt :: Location -> FilePath -> Generator
-embedFileAt loc f = do
- let mime = defaultMimeLookup $ T.pack f
- let entry = def {
- ebHaskellName = Just $ pathToName loc
- , ebLocation = loc
- , ebMimeType = mime
- , ebProductionContent = BL.readFile f
- , ebDevelReload = [| BL.readFile $(litE $ stringL f) |]
- }
- return [entry]
-
-- | List all files recursively in a directory
getRecursiveContents :: Location -- ^ The directory to search
-> FilePath -- ^ The prefix to add to the filenames
@@ -88,74 +66,6 @@ getRecursiveContents prefix topdir = do
else return [(loc, path)]
return (concat paths)
--- | Embed all files in a directory into the static subsite.
---
--- Equivalent to passing the empty string as the location to 'embedDirAt',
--- so the directory path itself is not part of the resource locations (and so
--- also not part of the generated route variable names).
-embedDir :: FilePath -> Generator
-embedDir = embedDirAt ""
-
--- | Embed all files in a directory to a given location within the static subsite.
---
--- The directory tree rooted at the 'FilePath' (which must be relative to the directory in
--- which you run @cabal build@) is embedded into the static subsite at the given
--- location. Also, route variables will be created based on the final location
--- of each file. For example, if a directory \"static\" contains the files
---
--- * css/bootstrap.css
---
--- * js/jquery.js
---
--- * js/bootstrap.js
---
--- then @embedDirAt \"somefolder\" \"static\"@ will
---
--- * Make the file @static\/css\/bootstrap.css@ available at the location
--- @somefolder\/css\/bootstrap.css@ within the static subsite and similarly
--- for the other two files.
---
--- * Create variables @somefolder_css_bootstrap_css@, @somefolder_js_jquery_js@,
--- @somefolder_js_bootstrap_js@ all of type @Route EmbeddedStatic@.
---
--- * During development, the files will be reloaded on every request. During
--- production, the contents of all files will be embedded into the executable.
---
--- * During development, files that are added to the directory while the server
--- is running will not be detected. You need to recompile the module which
--- contains the call to @mkEmbeddedStatic@. This will also generate new route
--- variables for the new files.
-embedDirAt :: Location -> FilePath -> Generator
-embedDirAt loc dir = do
- files <- runIO $ getRecursiveContents loc dir
- concat <$> mapM (uncurry embedFileAt) files
-
--- | Concatinate a list of files and embed it at the location. Equivalent to passing @return@ to
--- 'concatFilesWith'.
-concatFiles :: Location -> [FilePath] -> Generator
-concatFiles loc files = concatFilesWith loc return files
-
--- | Concatinate a list of files into a single 'BL.ByteString', run the resulting content through the given
--- function, embed it at the given location, and create a haskell variable name for the route based on
--- the location.
---
--- The processing function is only run when compiling for production, and the processing function is
--- executed at compile time. During development, on every request the files listed are reloaded,
--- concatenated, and served as a single resource at the given location without being processed.
-concatFilesWith :: Location -> (BL.ByteString -> IO BL.ByteString) -> [FilePath] -> Generator
-concatFilesWith loc process files = do
- let load = do putStrLn $ "Creating " ++ loc
- BL.concat <$> mapM BL.readFile files >>= process
- expFiles = listE $ map (litE . stringL) files
- expCt = [| BL.concat <$> mapM BL.readFile $expFiles |]
- mime = defaultMimeLookup $ T.pack loc
- return [def { ebHaskellName = Just $ pathToName loc
- , ebLocation = loc
- , ebMimeType = mime
- , ebProductionContent = load
- , ebDevelReload = expCt
- }]
-
-- | Convienient rexport of 'minifym' with a type signature to work with 'concatFilesWith'.
jasmine :: BL.ByteString -> IO BL.ByteString
jasmine ct = return $ either (const ct) id $ minifym ct
diff --git a/Yesod/EmbeddedStatic/Internal.hs b/Yesod/EmbeddedStatic/Internal.hs
index 0882c16..6f61a0f 100644
--- a/Yesod/EmbeddedStatic/Internal.hs
+++ b/Yesod/EmbeddedStatic/Internal.hs
@@ -7,9 +7,6 @@
module Yesod.EmbeddedStatic.Internal (
EmbeddedStatic(..)
, Route(..)
- , ComputedEntry(..)
- , devEmbed
- , prodEmbed
, develApp
, AddStaticContent
, staticContentHelper
@@ -68,44 +65,6 @@ instance ParseRoute EmbeddedStatic where
parseRoute (["widget",h], _) = Just $ EmbeddedWidgetR h
parseRoute _ = Nothing
--- | At compile time, one of these is created for every 'Entry' created by
--- the generators. The cLink is a template haskell expression of type @Route EmbeddedStatic@.
-data ComputedEntry = ComputedEntry {
- cHaskellName :: Maybe Name -- ^ Optional haskell name to create a variable for the route
- , cStEntry :: Static.EmbeddableEntry -- ^ The entry to be embedded into the executable
- , cLink :: ExpQ -- ^ The route for this entry
-}
-
-mkStr :: String -> ExpQ
-mkStr = litE . stringL
-
--- | Create a 'ComputedEntry' for development mode, reloading the content on every request.
-devEmbed :: Entry -> IO ComputedEntry
-devEmbed e = return computed
- where
- st = Static.EmbeddableEntry {
- Static.eLocation = "res/" `T.append` T.pack (ebLocation e)
- , Static.eMimeType = ebMimeType e
- , Static.eContent = Right [| $(ebDevelReload e) >>= \c ->
- return (T.pack (base64md5 c), c) |]
- }
- link = [| EmbeddedResourceR (T.splitOn (T.pack "/") $ T.pack $(mkStr $ ebLocation e)) [] |]
- computed = ComputedEntry (ebHaskellName e) st link
-
--- | Create a 'ComputedEntry' for production mode, hashing and embedding the content into the executable.
-prodEmbed :: Entry -> IO ComputedEntry
-prodEmbed e = do
- ct <- ebProductionContent e
- let hash = base64md5 ct
- link = [| EmbeddedResourceR (T.splitOn (T.pack "/") $ T.pack $(mkStr $ ebLocation e))
- [(T.pack "etag", T.pack $(mkStr hash))] |]
- st = Static.EmbeddableEntry {
- Static.eLocation = "res/" `T.append` T.pack (ebLocation e)
- , Static.eMimeType = ebMimeType e
- , Static.eContent = Left (T.pack hash, ct)
- }
- return $ ComputedEntry (ebHaskellName e) st link
-
tryExtraDevelFiles :: [[T.Text] -> IO (Maybe (MimeType, BL.ByteString))] -> Application
tryExtraDevelFiles [] _ = return $ responseLBS status404 [] ""
tryExtraDevelFiles (f:fs) r = do
diff --git a/Yesod/EmbeddedStatic/Types.hs b/Yesod/EmbeddedStatic/Types.hs
index 5cbd662..d3e514f 100644
--- a/Yesod/EmbeddedStatic/Types.hs
+++ b/Yesod/EmbeddedStatic/Types.hs
@@ -1,7 +1,6 @@
{-# LANGUAGE TemplateHaskell, QuasiQuotes, OverloadedStrings #-}
module Yesod.EmbeddedStatic.Types(
Location
- , Generator
-- ** Entry
, Entry
, ebHaskellName
@@ -52,16 +51,3 @@ data Entry = Entry {
-- taking as input the list of path pieces and optionally returning a mime type
-- and content.
}
-
--- | When using 'def', you must fill in at least 'ebLocation'.
-instance Default Entry where
- def = Entry { ebHaskellName = Nothing
- , ebLocation = "xxxx"
- , ebMimeType = "application/octet-stream"
- , ebProductionContent = return BL.empty
- , ebDevelReload = [| return BL.empty |]
- , ebDevelExtraFiles = Nothing
- }
-
--- | An embedded generator is executed at compile time to produce the entries to embed.
-type Generator = Q [Entry]
diff --git a/Yesod/Static.hs b/Yesod/Static.hs
index ef27f1b..5795f45 100644
--- a/Yesod/Static.hs
+++ b/Yesod/Static.hs
@@ -37,8 +37,8 @@ module Yesod.Static
, staticDevel
-- * Combining CSS/JS
-- $combining
- , combineStylesheets'
- , combineScripts'
+ --, combineStylesheets'
+ --, combineScripts'
-- ** Settings
, CombineSettings
, csStaticDir
@@ -48,13 +48,13 @@ module Yesod.Static
, csJsPreProcess
, csCombinedFolder
-- * Template Haskell helpers
- , staticFiles
- , staticFilesList
- , publicFiles
+ --, staticFiles
+ --, staticFilesList
+ --, publicFiles
-- * Hashing
, base64md5
-- * Embed
- , embed
+ --, embed
#ifdef TEST_EXPORT
, getFileListPieces
#endif
@@ -64,7 +64,6 @@ import Prelude hiding (FilePath)
import qualified Prelude
import System.Directory
import Control.Monad
-import Data.FileEmbed (embedDir)
import Yesod.Core
import Yesod.Core.Types
@@ -135,21 +134,6 @@ staticDevel dir = do
hashLookup <- cachedETagLookupDevel dir
return $ Static $ webAppSettingsWithLookup (F.decodeString dir) hashLookup
--- | Produce a 'Static' based on embedding all of the static files' contents in the
--- executable at compile time.
---
--- You should use "Yesod.EmbeddedStatic" instead, it is much more powerful.
---
--- Nota Bene: if you replace the scaffolded 'static' call in Settings/StaticFiles.hs
--- you will need to change the scaffolded addStaticContent. Otherwise, some of your
--- assets will be 404'ed. This is because by default yesod will generate compile those
--- assets to @static/tmp@ which for 'static' is fine since they are served out of the
--- directory itself. With embedded static, that will not work.
--- You can easily change @addStaticContent@ to @\_ _ _ -> return Nothing@ as a workaround.
--- This will cause yesod to embed those assets into the generated HTML file itself.
-embed :: Prelude.FilePath -> Q Exp
-embed fp = [|Static (embeddedSettings $(embedDir fp))|]
-
instance RenderRoute Static where
-- | A route on the static subsite (see also 'staticFiles').
--
@@ -214,59 +198,6 @@ getFileListPieces = flip evalStateT M.empty . flip go id
put $ M.insert s s m
return s
--- | Template Haskell function that automatically creates routes
--- for all of your static files.
---
--- For example, if you used
---
--- > staticFiles "static/"
---
--- and you had files @\"static\/style.css\"@ and
--- @\"static\/js\/script.js\"@, then the following top-level
--- definitions would be created:
---
--- > style_css = StaticRoute ["style.css"] []
--- > js_script_js = StaticRoute ["js/script.js"] []
---
--- Note that dots (@.@), dashes (@-@) and slashes (@\/@) are
--- replaced by underscores (@\_@) to create valid Haskell
--- identifiers.
-staticFiles :: Prelude.FilePath -> Q [Dec]
-staticFiles dir = mkStaticFiles dir
-
--- | Same as 'staticFiles', but takes an explicit list of files
--- to create identifiers for. The files path given are relative
--- to the static folder. For example, to create routes for the
--- files @\"static\/js\/jquery.js\"@ and
--- @\"static\/css\/normalize.css\"@, you would use:
---
--- > staticFilesList \"static\" [\"js\/jquery.js\", \"css\/normalize.css\"]
---
--- This can be useful when you have a very large number of static
--- files, but only need to refer to a few of them from Haskell.
-staticFilesList :: Prelude.FilePath -> [Prelude.FilePath] -> Q [Dec]
-staticFilesList dir fs =
- mkStaticFilesList dir (map split fs) "StaticRoute" True
- where
- split :: Prelude.FilePath -> [String]
- split [] = []
- split x =
- let (a, b) = break (== '/') x
- in a : split (drop 1 b)
-
--- | Same as 'staticFiles', but doesn't append an ETag to the
--- query string.
---
--- Using 'publicFiles' will speed up the compilation, since there
--- won't be any need for hashing files during compile-time.
--- However, since the ETag ceases to be part of the URL, the
--- 'Static' subsite won't be able to set the expire date too far
--- on the future. Browsers still will be able to cache the
--- contents, however they'll need send a request to the server to
--- see if their copy is up-to-date.
-publicFiles :: Prelude.FilePath -> Q [Dec]
-publicFiles dir = mkStaticFiles' dir "StaticRoute" False
-
mkHashMap :: Prelude.FilePath -> IO (M.Map F.FilePath S8.ByteString)
mkHashMap dir = do
@@ -309,53 +240,6 @@ cachedETagLookup dir = do
etags <- mkHashMap dir
return $ (\f -> return $ M.lookup f etags)
-mkStaticFiles :: Prelude.FilePath -> Q [Dec]
-mkStaticFiles fp = mkStaticFiles' fp "StaticRoute" True
-
-mkStaticFiles' :: Prelude.FilePath -- ^ static directory
- -> String -- ^ route constructor "StaticRoute"
- -> Bool -- ^ append checksum query parameter
- -> Q [Dec]
-mkStaticFiles' fp routeConName makeHash = do
- fs <- qRunIO $ getFileListPieces fp
- mkStaticFilesList fp fs routeConName makeHash
-
-mkStaticFilesList
- :: Prelude.FilePath -- ^ static directory
- -> [[String]] -- ^ list of files to create identifiers for
- -> String -- ^ route constructor "StaticRoute"
- -> Bool -- ^ append checksum query parameter
- -> Q [Dec]
-mkStaticFilesList fp fs routeConName makeHash = do
- concat `fmap` mapM mkRoute fs
- where
- replace' c
- | 'A' <= c && c <= 'Z' = c
- | 'a' <= c && c <= 'z' = c
- | '0' <= c && c <= '9' = c
- | otherwise = '_'
- mkRoute f = do
- let name' = intercalate "_" $ map (map replace') f
- routeName = mkName $
- case () of
- ()
- | null name' -> error "null-named file"
- | isDigit (head name') -> '_' : name'
- | isLower (head name') -> name'
- | otherwise -> '_' : name'
- f' <- [|map pack $(TH.lift f)|]
- let route = mkName routeConName
- pack' <- [|pack|]
- qs <- if makeHash
- then do hash <- qRunIO $ base64md5File $ pathFromRawPieces fp f
- [|[(pack "etag", pack $(TH.lift hash))]|]
- else return $ ListE []
- return
- [ SigD routeName $ ConT route
- , FunD routeName
- [ Clause [] (NormalB $ (ConE route) `AppE` f' `AppE` qs) []
- ]
- ]
base64md5File :: Prelude.FilePath -> IO String
base64md5File = fmap (base64 . encode) . hashFile
@@ -379,55 +263,6 @@ base64 = map tr
tr '/' = '_'
tr c = c
--- $combining
---
--- A common scenario on a site is the desire to include many external CSS and
--- Javascript files on every page. Doing so via the Widget functionality in
--- Yesod will work, but would also mean that the same content will be
--- downloaded many times. A better approach would be to combine all of these
--- files together into a single static file and serve that as a static resource
--- for every page. That resource can be cached on the client, and bandwidth
--- usage reduced.
---
--- This could be done as a manual process, but that becomes tedious. Instead,
--- you can use some Template Haskell code which will combine these files into a
--- single static file at compile time.
-
-data CombineType = JS | CSS
-
-combineStatics' :: CombineType
- -> CombineSettings
- -> [Route Static] -- ^ files to combine
- -> Q Exp
-combineStatics' combineType CombineSettings {..} routes = do
- texts <- qRunIO $ runResourceT $ mapM_ yield fps $$ awaitForever readUTFFile =$ consume
- ltext <- qRunIO $ preProcess $ TL.fromChunks texts
- bs <- qRunIO $ postProcess fps $ TLE.encodeUtf8 ltext
- let hash' = base64md5 bs
- suffix = csCombinedFolder </> F.decodeString hash' <.> extension
- fp = csStaticDir </> suffix
- qRunIO $ do
- createTree $ F.directory fp
- L.writeFile (F.encodeString fp) bs
- let pieces = map T.unpack $ T.splitOn "/" $ either id id $ F.toText suffix
- [|StaticRoute (map pack pieces) []|]
- where
- fps :: [F.FilePath]
- fps = map toFP routes
- toFP (StaticRoute pieces _) = csStaticDir </> F.concat (map F.fromText pieces)
- readUTFFile fp = sourceFile (F.encodeString fp) =$= CT.decode CT.utf8
- postProcess =
- case combineType of
- JS -> csJsPostProcess
- CSS -> csCssPostProcess
- preProcess =
- case combineType of
- JS -> csJsPreProcess
- CSS -> csCssPreProcess
- extension =
- case combineType of
- JS -> "js"
- CSS -> "css"
-- | Data type for holding all settings for combining files.
--
@@ -504,50 +339,3 @@ instance Default CombineSettings where
errorIntro :: [FilePath] -> [Char] -> [Char]
errorIntro fps s = "Error minifying " ++ show fps ++ ": " ++ s
-liftRoutes :: [Route Static] -> Q Exp
-liftRoutes =
- fmap ListE . mapM go
- where
- go :: Route Static -> Q Exp
- go (StaticRoute x y) = [|StaticRoute $(liftTexts x) $(liftPairs y)|]
-
- liftTexts = fmap ListE . mapM liftT
- liftT t = [|pack $(TH.lift $ T.unpack t)|]
-
- liftPairs = fmap ListE . mapM liftPair
- liftPair (x, y) = [|($(liftT x), $(liftT y))|]
-
--- | Combine multiple CSS files together. Common usage would be:
---
--- >>> combineStylesheets' development def 'StaticR [style1_css, style2_css]
---
--- Where @development@ is a variable in your site indicated whether you are in
--- development or production mode.
---
--- Since 1.2.0
-combineStylesheets' :: Bool -- ^ development? if so, perform no combining
- -> CombineSettings
- -> Name -- ^ Static route constructor name, e.g. \'StaticR
- -> [Route Static] -- ^ files to combine
- -> Q Exp
-combineStylesheets' development cs con routes
- | development = [| mapM_ (addStylesheet . $(return $ ConE con)) $(liftRoutes routes) |]
- | otherwise = [| addStylesheet $ $(return $ ConE con) $(combineStatics' CSS cs routes) |]
-
-
--- | Combine multiple JS files together. Common usage would be:
---
--- >>> combineScripts' development def 'StaticR [script1_js, script2_js]
---
--- Where @development@ is a variable in your site indicated whether you are in
--- development or production mode.
---
--- Since 1.2.0
-combineScripts' :: Bool -- ^ development? if so, perform no combining
- -> CombineSettings
- -> Name -- ^ Static route constructor name, e.g. \'StaticR
- -> [Route Static] -- ^ files to combine
- -> Q Exp
-combineScripts' development cs con routes
- | development = [| mapM_ (addScript . $(return $ ConE con)) $(liftRoutes routes) |]
- | otherwise = [| addScript $ $(return $ ConE con) $(combineStatics' JS cs routes) |]
--
1.8.5.1