hunk ./src/HAppS/Template/HSP/Handle.hs 7
+    , withStore
hunk ./src/HAppS/Template/HSP/Handle.hs 17
+import Control.Exception
hunk ./src/HAppS/Template/HSP/Handle.hs 66
+withStore :: (Store -> IO a) -> IO a
+withStore = bracket newStore destroyStore
+
hunk ./src/HAppS/Template/HSP/Handle.hs 129
-         Right (_,web) -> liftM toResponse $ liftIO $ evalHSP (runWebXML webState web) xmd
+         Right (_,web) -> liftM toResponse $ liftIO $ evalHSP xmd (runWebXML webState web)