update patches for newer package versions

This commit is contained in:
Joey Hess 2015-07-02 23:03:34 -04:00
parent 4ada52698a
commit 20be770a77
18 changed files with 1935 additions and 645 deletions

View file

@ -1,6 +1,6 @@
From 606c5f4f4b2d476d274907eb2bb8c12b60fc451f Mon Sep 17 00:00:00 2001
From 09d7340ff4c9b43f7c8c2ad6529a6c60871d265f Mon Sep 17 00:00:00 2001
From: dummy <dummy@example.com>
Date: Wed, 21 May 2014 04:43:30 +0000
Date: Fri, 3 Jul 2015 01:39:14 +0000
Subject: [PATCH] remove TH
---
@ -31,7 +31,7 @@ index 08febb9..e3a6d51 100644
-- | 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.hs b/Yesod/Static.hs
index 725ebf4..33eaffd 100644
index a18d88e..afb1cda 100644
--- a/Yesod/Static.hs
+++ b/Yesod/Static.hs
@@ -37,8 +37,8 @@ module Yesod.Static
@ -99,7 +99,7 @@ index 725ebf4..33eaffd 100644
@@ -267,7 +270,7 @@ staticFilesList dir fs =
-- see if their copy is up-to-date.
publicFiles :: Prelude.FilePath -> Q [Dec]
publicFiles dir = mkStaticFiles' dir "StaticRoute" False
publicFiles dir = mkStaticFiles' dir False
-
+-}
@ -111,17 +111,17 @@ index 725ebf4..33eaffd 100644
+{-
mkStaticFiles :: Prelude.FilePath -> Q [Dec]
mkStaticFiles fp = mkStaticFiles' fp "StaticRoute" True
mkStaticFiles fp = mkStaticFiles' fp True
@@ -357,6 +361,7 @@ mkStaticFilesList fp fs routeConName makeHash = do
[ Clause [] (NormalB $ (ConE route) `AppE` f' `AppE` qs) []
@@ -354,6 +358,7 @@ mkStaticFilesList fp fs makeHash = do
[ Clause [] (NormalB $ (ConE 'StaticRoute) `AppE` f' `AppE` qs) []
]
]
+-}
base64md5File :: Prelude.FilePath -> IO String
base64md5File = fmap (base64 . encode) . hashFile
@@ -395,7 +400,7 @@ base64 = map tr
@@ -392,7 +397,7 @@ base64 = map tr
-- single static file at compile time.
data CombineType = JS | CSS
@ -130,7 +130,7 @@ index 725ebf4..33eaffd 100644
combineStatics' :: CombineType
-> CombineSettings
-> [Route Static] -- ^ files to combine
@@ -429,7 +434,7 @@ combineStatics' combineType CombineSettings {..} routes = do
@@ -426,7 +431,7 @@ combineStatics' combineType CombineSettings {..} routes = do
case combineType of
JS -> "js"
CSS -> "css"
@ -139,7 +139,7 @@ index 725ebf4..33eaffd 100644
-- | Data type for holding all settings for combining files.
--
-- This data type is a settings type. For more information, see:
@@ -505,6 +510,7 @@ instance Default CombineSettings where
@@ -502,6 +507,7 @@ instance Default CombineSettings where
errorIntro :: [FilePath] -> [Char] -> [Char]
errorIntro fps s = "Error minifying " ++ show fps ++ ": " ++ s
@ -147,7 +147,7 @@ index 725ebf4..33eaffd 100644
liftRoutes :: [Route Static] -> Q Exp
liftRoutes =
fmap ListE . mapM go
@@ -551,4 +557,5 @@ combineScripts' :: Bool -- ^ development? if so, perform no combining
@@ -548,4 +554,5 @@ combineScripts' :: Bool -- ^ development? if so, perform no combining
-> Q Exp
combineScripts' development cs con routes
| development = [| mapM_ (addScript . $(return $ ConE con)) $(liftRoutes routes) |]
@ -155,18 +155,18 @@ index 725ebf4..33eaffd 100644
+ | otherwise = [| addScript $ $(return $ ConE con) $(combineStatics' JS cs routes) |]a
+-}
diff --git a/yesod-static.cabal b/yesod-static.cabal
index 2582a95..5df03b3 100644
index 4ccb0d7..8758aaa 100644
--- a/yesod-static.cabal
+++ b/yesod-static.cabal
@@ -49,7 +49,6 @@ library
@@ -50,7 +50,6 @@ library
, system-fileio >= 0.3
, data-default
, shakespeare-css >= 1.0.3
, mime-types >= 0.1
- , hjsmin
, filepath >= 1.3
, resourcet >= 0.4
, unordered-containers >= 0.2
@@ -62,13 +61,6 @@ library
@@ -63,13 +62,6 @@ library
, hashable >= 1.1
exposed-modules: Yesod.Static
@ -181,13 +181,13 @@ index 2582a95..5df03b3 100644
ghc-options: -Wall
extensions: TemplateHaskell
@@ -108,7 +100,6 @@ test-suite tests
, system-fileio
, data-default
, shakespeare-css
, mime-types
- , hjsmin
, filepath
, resourcet
, unordered-containers
--
2.0.0.rc2
2.1.4