gitit 0.10.6 → 0.10.6.1
raw patch · 3 files changed
+43/−2 lines, 3 files
Files
- CHANGES +4/−0
- Network/Gitit/Compat/Except.hs +36/−0
- gitit.cabal +3/−2
CHANGES view
@@ -1,3 +1,7 @@+Version 0.10.6.1 released 28 October 2014++ * Added Network.Gitit.Compat.Except to cabal module list.+ Version 0.10.6 released 28 October 2014 * Escape HTML characters in user name when showing it on a web page.
+ Network/Gitit/Compat/Except.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE CPP #-}+module Network.Gitit.Compat.Except (+ ExceptT+ , Except+ , Error(..)+ , runExceptT+ , runExcept+ , MonadError+ , throwError+ , catchError )+ where++#if MIN_VERSION_mtl(2,2,1)+import Control.Monad.Except++class Error a where+ noMsg :: a+ strMsg :: String -> a++ noMsg = strMsg ""+ strMsg _ = noMsg++#else+import Control.Monad.Error+import Control.Monad.Identity (Identity, runIdentity)++type ExceptT = ErrorT++type Except s a = ErrorT s Identity a++runExceptT :: ExceptT e m a -> m (Either e a)+runExceptT = runErrorT++runExcept :: ExceptT e Identity a -> Either e a+runExcept = runIdentity . runExceptT+#endif
gitit.cabal view
@@ -1,5 +1,5 @@ name: gitit-version: 0.10.6+version: 0.10.6.1 Cabal-version: >= 1.6 build-type: Simple synopsis: Wiki using happstack, git or darcs, and pandoc.@@ -124,7 +124,8 @@ Paths_gitit, Network.Gitit.Server, Network.Gitit.Export, Network.Gitit.Util, Network.Gitit.Handlers, Network.Gitit.Plugins, Network.Gitit.Rpxnow,- Network.Gitit.Page, Network.Gitit.Feed+ Network.Gitit.Page, Network.Gitit.Feed,+ Network.Gitit.Compat.Except if flag(plugins) exposed-modules: Network.Gitit.Interface build-depends: ghc, ghc-paths