happstack-facebook 0.23 → 0.24

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• Happstack/Facebook/FacebookT.hs +2/−2
• happstack-facebook.cabal +1/−1

@@ -15,7 +15,7 @@ import qualified Data.Text.Lazy as TL import qualified HSX.XMLGenerator as HSX import Happstack.Server (ServerMonad(askRq, localRq), ServerPartT, FilterMonad(setFilter,composeFilter,getFilter), WebMonad(finishWith), mapServerPartT)-import Web.Routes.RouteT (ShowURL(showURL), URL)+import Web.Routes.RouteT (ShowURL(showURLParams), URL)  newtype FacebookT s m a =     FacebookT { unFacebookT :: ReaderT s m a }@@ -74,7 +74,7 @@  instance (ShowURL m) => ShowURL (FacebookT s m) where     type URL (FacebookT s m) = URL m-    showURL u = FacebookT $ ReaderT $ const (showURL u)+    showURLParams u params = FacebookT $ ReaderT $ const (showURLParams u params)  instance (Monad m) => HSX.XMLGen (FacebookT s m) where     type HSX.XML (FacebookT s m) = XML

@@ -1,5 +1,5 @@ Name:             happstack-facebook-Version:          0.23+Version:          0.24 License:          BSD3 License-file:     debian/copyright Author:           jeremy@seereason.com