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 a2938d4448e91a822270a256b8d1cabbc99e19f8 (commit)
from d6bfd48104026a77e13961b17e52e96857703ac2 (commit)
Summary of changes:
src/Snap/Loader/Hint.hs | 5 ++++-
1 files changed, 4 insertions(+), 1 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 a2938d4448e91a822270a256b8d1cabbc99e19f8
Author: Shane <[email protected]>
Date: Wed Jul 14 13:26:13 2010 +0100
Changed use of init in getHintOpts to init', which doesn't fail if given an
empty list.
diff --git a/src/Snap/Loader/Hint.hs b/src/Snap/Loader/Hint.hs
index c160a20..a758861 100644
--- a/src/Snap/Loader/Hint.hs
+++ b/src/Snap/Loader/Hint.hs
@@ -90,11 +90,14 @@ getHintOpts args = -- These hide-packages will go away with
a new
srcOpts = filter (\x -> "-i" `isPrefixOf` x
&& not ("-idist" `isPrefixOf` x)) args
- toCopy = init $ dropWhile (not . ("-package" `isPrefixOf`)) args
+ toCopy = init' $ 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 creates the Snap handler that actually is
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
