Remove the Snap.Extension.Loader.Static module, model doesn't quite f…

…it anymore. May reintroduce it again in the future.

snap.cabal

@@ -47,7 +47,6 @@ Library
     Snap.Extension.Heist,
     Snap.Extension.Heist.Impl,
     Snap.Extension.Loader.Hint,
-    Snap.Extension.Loader.Static,
     Snap.Extension.Server.Hint,
     Snap.Extension.Server,
     Snap.Extension,

src/Snap/Extension/Loader/Hint.hs

@@ -31,7 +31,7 @@ import           System.Environment (getArgs)
 
 ------------------------------------------------------------------------------
 import           Snap.Types
-import qualified Snap.Extension.Loader.Static as Static
+import           Snap.Extension (runInitializerHint)
 import           Snap.Extension.Loader.Hint.Helper
 
 ------------------------------------------------------------------------------
@@ -65,7 +65,7 @@ loadSnapTH initializer action = do
         modules = catMaybes [initMod, actMod]
         opts = getHintOpts args
 
-    let static = Static.loadSnapTH initializer action
+    let static = typecheck initializer action
 
     -- The let in this block causes the static expression to be
     -- pattern-matched, providing an extra check that the types were
@@ -74,6 +74,13 @@ loadSnapTH initializer action = do
        in hintSnap opts modules initBase actBase |]
 
 
+-- Used to typecheck the initializer & action splices.
+typecheck :: Name -> Name -> Q Exp
+typecheck initializer action = do
+    let [initE, actE] = map varE [initializer, action]
+    [| return (runInitializerHint $initE $actE) |]
+
+
 ------------------------------------------------------------------------------
 -- | Convert the command-line arguments passed in to options for the
 -- hint interpreter.  This is somewhat brittle code, based on a few