web-routes-happstack 0.20 → 0.21.1

raw patch · 3 files changed

+39/−3 lines, 3 filesdep ~happstack-server

Dependency ranges changed: happstack-server

Files

LICENSE +30/−0
Web/Routes/Happstack.hs +6/−1
web-routes-happstack.cabal +3/−2

+ LICENSE view

@@ -0,0 +1,30 @@+Copyright (c)2010, Jeremy Shaw++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Jeremy Shaw nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Web/Routes/Happstack.hs view

@@ -4,7 +4,7 @@ import Control.Applicative ((<$>)) import Control.Monad (MonadPlus(mzero)) import Data.List (intercalate)-import Happstack.Server (FilterMonad(..), ServerMonad(..), WebMonad(..), ServerPartT, Response, Request(rqPaths), ToMessage(..), dirs)+import Happstack.Server (FilterMonad(..), ServerMonad(..), WebMonad(..), HasRqData(..), ServerPartT, Response, Request(rqPaths), ToMessage(..), dirs) import Web.Routes.RouteT (RouteT(RouteT), liftRouteT, mapRouteT) import Web.Routes.Site (Site, runSite) @@ -19,6 +19,11 @@  instance (WebMonad a m) => WebMonad a (RouteT url m) where     finishWith = liftRouteT . finishWith++instance (HasRqData m) => HasRqData (RouteT url m) where+    askRqEnv       = liftRouteT askRqEnv+    localRqEnv f m = mapRouteT (localRqEnv f) m+    rqDataError    = liftRouteT . rqDataError  implSite :: (Functor m, Monad m, MonadPlus m, ServerMonad m) => String -> FilePath -> Site url (m a) -> m a implSite domain approot siteSpec =

web-routes-happstack.cabal view

@@ -1,6 +1,7 @@ Name:             web-routes-happstack-Version:          0.20+Version:          0.21.1 License:          BSD3+License-File:     LICENSE Author:           jeremy@seereason.com Maintainer:       partners@seereason.com Bug-Reports:      http://bugzilla.seereason.com/@@ -10,7 +11,7 @@ Build-type:       Simple  Library-        Build-Depends:    base >= 4 && < 5, happstack-server, web-routes >= 0.19+        Build-Depends:    base >= 4 && < 5, happstack-server >= 0.5.1, web-routes >= 0.19         Exposed-Modules:  Web.Routes.Happstack  source-repository head