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 09e9d00118193f5909250f0e698419e7a524c00e (commit)
from 40c3568005c0b54e415232beb884e5e43035be51 (commit)
Summary of changes:
src/Snap/Loader/Hint.hs | 6 ++----
1 files changed, 2 insertions(+), 4 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 09e9d00118193f5909250f0e698419e7a524c00e
Author: Carl Howells <[email protected]>
Date: Tue Jun 22 00:32:16 2010 -0700
Remove dead code
diff --git a/src/Snap/Loader/Hint.hs b/src/Snap/Loader/Hint.hs
index 43c0b28..348505e 100644
--- a/src/Snap/Loader/Hint.hs
+++ b/src/Snap/Loader/Hint.hs
@@ -21,12 +21,11 @@ import Language.Haskell.Interpreter.Unsafe
(unsafeSetGhcOption)
import Language.Haskell.TH.Syntax
-import System.Directory (getCurrentDirectory)
-
------------------------------------------------------------------------------
import Snap.Types
import qualified Snap.Loader.Static as Static
+
------------------------------------------------------------------------------
-- | XXX
-- Assumes being spliced into the same source tree as the action to
@@ -36,7 +35,6 @@ import qualified Snap.Loader.Static as Static
loadSnapTH :: Name -> Name -> Q Exp
loadSnapTH initialize action = do
loc <- location
- cwd <- runIO getCurrentDirectory
let initMod = nameModule initialize
initBase = nameBase initialize
@@ -98,7 +96,7 @@ hintSnap opts sPath mNames action = do
------------------------------------------------------------------------------
--- |
+-- | XXX
format :: InterpreterError -> S.ByteString
format (UnknownError e) =
S.append "Unknown interpreter error:\r\n\r\n" $ S.pack e
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
