This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "snap".
The branch, master has been updated
via 47d321c28757daa7e323ba87676be3dab2eabe00 (commit)
from a110a58a01b81e011a86179e42ffa21074dc12b2 (commit)
Summary of changes:
src/Snap/Extension/Loader/Devel.hs | 8 +++-----
1 files changed, 3 insertions(+), 5 deletions(-)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 47d321c28757daa7e323ba87676be3dab2eabe00
Author: Carl Howells <[email protected]>
Date: Sun Jun 12 17:45:19 2011 -0700
Handle ghc arguments in the template haskell stub better
diff --git a/src/Snap/Extension/Loader/Devel.hs
b/src/Snap/Extension/Loader/Devel.hs
index 1afd29b..063ed30 100644
--- a/src/Snap/Extension/Loader/Devel.hs
+++ b/src/Snap/Extension/Loader/Devel.hs
@@ -11,7 +11,7 @@ module Snap.Extension.Loader.Devel
import Control.Monad (liftM2)
-import Data.List (groupBy, intercalate, isPrefixOf, nub)
+import Data.List
import Data.Maybe (catMaybes)
import Data.Time.Clock (diffUTCTime, getCurrentTime)
@@ -79,14 +79,12 @@ getHintOpts args = removeBad opts
srcOpts = filter (\x -> "-i" `isPrefixOf` x
&& not ("-idist" `isPrefixOf` x)) args
- toCopy = init' $ dropWhile (not . ("-package" `isPrefixOf`)) args
+ toCopy = filter (not . isSuffixOf ".hs") $
+ dropWhile (not . ("-package" `isPrefixOf`)) args
copy = map (intercalate " ") . groupBy (\_ s -> not $ "-" `isPrefixOf` s)
opts = hideAll ++ srcOpts ++ copy toCopy
- init' [] = []
- init' xs = init xs
-
------------------------------------------------------------------------------
-- | This function extracts the source paths from the compilation args
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
https://mailman-mail5.webfaction.com/listinfo/snap
