happstack-server 0.5.0.3 → 0.5.0.4
raw patch · 2 files changed
+12/−3 lines, 2 filesdep ~happstack-datadep ~happstack-utilPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: happstack-data, happstack-util
API changes (from Hackage documentation)
- Happstack.Server.MinHaXML: instance [overlap ok] (ToElement x) => ToElement (Maybe x)
- Happstack.Server.MinHaXML: instance [overlap ok] (Xml a) => ToElement a
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Eq a) => Eq (SetAppend a)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (FromData a) => FromData (Maybe a)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Functor m) => Functor (FilterT a m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Functor m) => Functor (ServerPartT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Functor m) => Functor (WebT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => FilterMonad Response (ServerPartT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => FilterMonad Response (WebT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => FilterMonad a (FilterT a m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => Monad (FilterT a m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => Monad (ServerPartT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => Monad (WebT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => MonadPlus (ServerPartT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => MonadPlus (WebT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => Monoid (ServerPartT m a)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => Monoid (WebT m a)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => ServerMonad (ServerPartT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => WebMonad Response (ServerPartT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monad m) => WebMonad Response (WebT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (MonadError e m) => MonadError e (WebT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (MonadIO m) => MonadIO (FilterT a m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (MonadIO m) => MonadIO (ServerPartT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (MonadIO m) => MonadIO (WebT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (MonadReader r m) => MonadReader r (WebT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (MonadState st m) => MonadState st (WebT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (MonadWriter w m) => MonadWriter w (WebT m)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Monoid a) => Monoid (SetAppend a)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Show a) => Show (SetAppend a)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (ToMessage a) => ToMessage (Maybe a)
- Happstack.Server.SimpleHTTP: instance [overlap ok] (Xml a) => ToMessage a
- Happstack.Server.XSLT: instance [overlap ok] (Sat (ctx XSLTCmd)) => Data ctx XSLTCmd
+ Happstack.Server.MinHaXML: instance [overlap ok] ToElement x => ToElement (Maybe x)
+ Happstack.Server.MinHaXML: instance [overlap ok] Xml a => ToElement a
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Eq a => Eq (SetAppend a)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] FromData a => FromData (Maybe a)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Functor m => Functor (FilterT a m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Functor m => Functor (ServerPartT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Functor m => Functor (WebT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => FilterMonad Response (ServerPartT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => FilterMonad Response (WebT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => FilterMonad a (FilterT a m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => Monad (FilterT a m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => Monad (ServerPartT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => Monad (WebT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => MonadPlus (ServerPartT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => MonadPlus (WebT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => Monoid (ServerPartT m a)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => Monoid (WebT m a)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => ServerMonad (ServerPartT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => WebMonad Response (ServerPartT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monad m => WebMonad Response (WebT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] MonadError e m => MonadError e (WebT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] MonadIO m => MonadIO (FilterT a m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] MonadIO m => MonadIO (ServerPartT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] MonadIO m => MonadIO (WebT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] MonadReader r m => MonadReader r (WebT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] MonadState st m => MonadState st (WebT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] MonadWriter w m => MonadWriter w (WebT m)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Monoid a => Monoid (SetAppend a)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Show a => Show (SetAppend a)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] ToMessage a => ToMessage (Maybe a)
+ Happstack.Server.SimpleHTTP: instance [overlap ok] Xml a => ToMessage a
+ Happstack.Server.XSLT: instance [overlap ok] Sat (ctx XSLTCmd) => Data ctx XSLTCmd
- Happstack.Server.Cookie: getCookie :: (Monad m) => String -> ByteString -> m Cookie
+ Happstack.Server.Cookie: getCookie :: Monad m => String -> ByteString -> m Cookie
- Happstack.Server.Cookie: getCookie' :: (Monad m) => String -> ByteString -> m (Either String Cookie)
+ Happstack.Server.Cookie: getCookie' :: Monad m => String -> ByteString -> m (Either String Cookie)
- Happstack.Server.Cookie: getCookies :: (Monad m) => ByteString -> m [Cookie]
+ Happstack.Server.Cookie: getCookies :: Monad m => ByteString -> m [Cookie]
- Happstack.Server.Cookie: getCookies' :: (Monad m) => ByteString -> m (Either String [Cookie])
+ Happstack.Server.Cookie: getCookies' :: Monad m => ByteString -> m (Either String [Cookie])
- Happstack.Server.HTTP.FileServe: asContentType :: (Monad m) => String -> (FilePath -> m String)
+ Happstack.Server.HTTP.FileServe: asContentType :: Monad m => String -> (FilePath -> m String)
- Happstack.Server.HTTP.FileServe: guessContentTypeM :: (Monad m) => MimeMap -> (FilePath -> m String)
+ Happstack.Server.HTTP.FileServe: guessContentTypeM :: Monad m => MimeMap -> (FilePath -> m String)
- Happstack.Server.HTTP.Types: addHeader :: (HasHeaders r) => String -> String -> r -> r
+ Happstack.Server.HTTP.Types: addHeader :: HasHeaders r => String -> String -> r -> r
- Happstack.Server.HTTP.Types: addHeaderBS :: (HasHeaders r) => ByteString -> ByteString -> r -> r
+ Happstack.Server.HTTP.Types: addHeaderBS :: HasHeaders r => ByteString -> ByteString -> r -> r
- Happstack.Server.HTTP.Types: addHeaderUnsafe :: (HasHeaders r) => ByteString -> HeaderPair -> r -> r
+ Happstack.Server.HTTP.Types: addHeaderUnsafe :: HasHeaders r => ByteString -> HeaderPair -> r -> r
- Happstack.Server.HTTP.Types: getHeader :: (HasHeaders r) => String -> r -> Maybe ByteString
+ Happstack.Server.HTTP.Types: getHeader :: HasHeaders r => String -> r -> Maybe ByteString
- Happstack.Server.HTTP.Types: getHeaderBS :: (HasHeaders r) => ByteString -> r -> Maybe ByteString
+ Happstack.Server.HTTP.Types: getHeaderBS :: HasHeaders r => ByteString -> r -> Maybe ByteString
- Happstack.Server.HTTP.Types: getHeaderUnsafe :: (HasHeaders r) => ByteString -> r -> Maybe ByteString
+ Happstack.Server.HTTP.Types: getHeaderUnsafe :: HasHeaders r => ByteString -> r -> Maybe ByteString
- Happstack.Server.HTTP.Types: hasHeader :: (HasHeaders r) => String -> r -> Bool
+ Happstack.Server.HTTP.Types: hasHeader :: HasHeaders r => String -> r -> Bool
- Happstack.Server.HTTP.Types: hasHeaderBS :: (HasHeaders r) => ByteString -> r -> Bool
+ Happstack.Server.HTTP.Types: hasHeaderBS :: HasHeaders r => ByteString -> r -> Bool
- Happstack.Server.HTTP.Types: hasHeaderUnsafe :: (HasHeaders r) => ByteString -> r -> Bool
+ Happstack.Server.HTTP.Types: hasHeaderUnsafe :: HasHeaders r => ByteString -> r -> Bool
- Happstack.Server.HTTP.Types: redirect :: (ToSURI s) => Int -> s -> Response -> Response
+ Happstack.Server.HTTP.Types: redirect :: ToSURI s => Int -> s -> Response -> Response
- Happstack.Server.HTTP.Types: setHeader :: (HasHeaders r) => String -> String -> r -> r
+ Happstack.Server.HTTP.Types: setHeader :: HasHeaders r => String -> String -> r -> r
- Happstack.Server.HTTP.Types: setHeaderBS :: (HasHeaders r) => ByteString -> ByteString -> r -> r
+ Happstack.Server.HTTP.Types: setHeaderBS :: HasHeaders r => ByteString -> ByteString -> r -> r
- Happstack.Server.HTTP.Types: setHeaderUnsafe :: (HasHeaders r) => ByteString -> HeaderPair -> r -> r
+ Happstack.Server.HTTP.Types: setHeaderUnsafe :: HasHeaders r => ByteString -> HeaderPair -> r -> r
- Happstack.Server.HTTP.Types: setRsCode :: (Monad m) => Int -> Response -> m Response
+ Happstack.Server.HTTP.Types: setRsCode :: Monad m => Int -> Response -> m Response
- Happstack.Server.MessageWrap: class (Read a) => ReadString a
+ Happstack.Server.MessageWrap: class Read a => ReadString a
- Happstack.Server.MessageWrap: readString :: (ReadString a) => String -> a
+ Happstack.Server.MessageWrap: readString :: ReadString a => String -> a
- Happstack.Server.MinHaXML: attrFS :: (Show a) => t1 -> (t -> a) -> t -> (t1, String)
+ Happstack.Server.MinHaXML: attrFS :: Show a => t1 -> (t -> a) -> t -> (t1, String)
- Happstack.Server.MinHaXML: elF :: (ToElement b) => Name -> (a -> b) -> a -> Element
+ Happstack.Server.MinHaXML: elF :: ToElement b => Name -> (a -> b) -> a -> Element
- Happstack.Server.MinHaXML: listToEl :: (ToElement a) => Name -> [(Name, String)] -> [a] -> Element
+ Happstack.Server.MinHaXML: listToEl :: ToElement a => Name -> [(Name, String)] -> [a] -> Element
- Happstack.Server.MinHaXML: toElement :: (ToElement x) => x -> Element
+ Happstack.Server.MinHaXML: toElement :: ToElement x => x -> Element
- Happstack.Server.MinHaXML: verbim :: (Verbatim a) => a -> String
+ Happstack.Server.MinHaXML: verbim :: Verbatim a => a -> String
- Happstack.Server.MinHaXML: wrapElem :: (ToElement x) => Name -> x -> Element
+ Happstack.Server.MinHaXML: wrapElem :: ToElement x => Name -> x -> Element
- Happstack.Server.Parts: deflateFilter :: (FilterMonad Response m) => m ()
+ Happstack.Server.Parts: deflateFilter :: FilterMonad Response m => m ()
- Happstack.Server.Parts: gzipFilter :: (FilterMonad Response m) => m ()
+ Happstack.Server.Parts: gzipFilter :: FilterMonad Response m => m ()
- Happstack.Server.SURI: fromPath :: (FromPath x) => String -> x
+ Happstack.Server.SURI: fromPath :: FromPath x => String -> x
- Happstack.Server.SURI: render :: (ToSURI a) => a -> String
+ Happstack.Server.SURI: render :: ToSURI a => a -> String
- Happstack.Server.SURI: toSURI :: (ToSURI x) => x -> SURI
+ Happstack.Server.SURI: toSURI :: ToSURI x => x -> SURI
- Happstack.Server.SimpleHTTP: addCookie :: (FilterMonad Response m) => Seconds -> Cookie -> m ()
+ Happstack.Server.SimpleHTTP: addCookie :: FilterMonad Response m => Seconds -> Cookie -> m ()
- Happstack.Server.SimpleHTTP: addCookies :: (FilterMonad Response m) => [(Seconds, Cookie)] -> m ()
+ Happstack.Server.SimpleHTTP: addCookies :: FilterMonad Response m => [(Seconds, Cookie)] -> m ()
- Happstack.Server.SimpleHTTP: addHeaderM :: (FilterMonad Response m) => String -> String -> m ()
+ Happstack.Server.SimpleHTTP: addHeaderM :: FilterMonad Response m => String -> String -> m ()
- Happstack.Server.SimpleHTTP: anyRequest :: (Monad m) => WebT m a -> ServerPartT m a
+ Happstack.Server.SimpleHTTP: anyRequest :: Monad m => WebT m a -> ServerPartT m a
- Happstack.Server.SimpleHTTP: askRq :: (ServerMonad m) => m Request
+ Happstack.Server.SimpleHTTP: askRq :: ServerMonad m => m Request
- Happstack.Server.SimpleHTTP: badGateway :: (FilterMonad Response m) => a -> m a
+ Happstack.Server.SimpleHTTP: badGateway :: FilterMonad Response m => a -> m a
- Happstack.Server.SimpleHTTP: badRequest :: (FilterMonad Response m) => a -> m a
+ Happstack.Server.SimpleHTTP: badRequest :: FilterMonad Response m => a -> m a
- Happstack.Server.SimpleHTTP: class (Monad m) => FilterMonad a m | m -> a
+ Happstack.Server.SimpleHTTP: class Monad m => FilterMonad a m | m -> a
- Happstack.Server.SimpleHTTP: class (Monad m) => ServerMonad m
+ Happstack.Server.SimpleHTTP: class Monad m => ServerMonad m
- Happstack.Server.SimpleHTTP: class (Monad m) => WebMonad a m | m -> a
+ Happstack.Server.SimpleHTTP: class Monad m => WebMonad a m | m -> a
- Happstack.Server.SimpleHTTP: composeFilter :: (FilterMonad a m) => (a -> a) -> m ()
+ Happstack.Server.SimpleHTTP: composeFilter :: FilterMonad a m => (a -> a) -> m ()
- Happstack.Server.SimpleHTTP: doXslt :: (MonadIO m) => XSLTCmd -> XSLPath -> Response -> m Response
+ Happstack.Server.SimpleHTTP: doXslt :: MonadIO m => XSLTCmd -> XSLPath -> Response -> m Response
- Happstack.Server.SimpleHTTP: expireCookie :: (FilterMonad Response m) => String -> m ()
+ Happstack.Server.SimpleHTTP: expireCookie :: FilterMonad Response m => String -> m ()
- Happstack.Server.SimpleHTTP: finishWith :: (WebMonad a m) => a -> m b
+ Happstack.Server.SimpleHTTP: finishWith :: WebMonad a m => a -> m b
- Happstack.Server.SimpleHTTP: forbidden :: (FilterMonad Response m) => a -> m a
+ Happstack.Server.SimpleHTTP: forbidden :: FilterMonad Response m => a -> m a
- Happstack.Server.SimpleHTTP: fromData :: (FromData a) => RqData a
+ Happstack.Server.SimpleHTTP: fromData :: FromData a => RqData a
- Happstack.Server.SimpleHTTP: fromReqURI :: (FromReqURI a) => String -> Maybe a
+ Happstack.Server.SimpleHTTP: fromReqURI :: FromReqURI a => String -> Maybe a
- Happstack.Server.SimpleHTTP: getDataFn :: (ServerMonad m) => RqData a -> m (Maybe a)
+ Happstack.Server.SimpleHTTP: getDataFn :: ServerMonad m => RqData a -> m (Maybe a)
- Happstack.Server.SimpleHTTP: getFilter :: (FilterMonad a m) => m b -> m (b, a -> a)
+ Happstack.Server.SimpleHTTP: getFilter :: FilterMonad a m => m b -> m (b, a -> a)
- Happstack.Server.SimpleHTTP: getHeaderM :: (ServerMonad m) => String -> m (Maybe ByteString)
+ Happstack.Server.SimpleHTTP: getHeaderM :: ServerMonad m => String -> m (Maybe ByteString)
- Happstack.Server.SimpleHTTP: ignoreFilters :: (FilterMonad a m) => m ()
+ Happstack.Server.SimpleHTTP: ignoreFilters :: FilterMonad a m => m ()
- Happstack.Server.SimpleHTTP: internalServerError :: (FilterMonad Response m) => a -> m a
+ Happstack.Server.SimpleHTTP: internalServerError :: FilterMonad Response m => a -> m a
- Happstack.Server.SimpleHTTP: localContext :: (Monad m) => (WebT m a -> WebT m' a) -> ServerPartT m a -> ServerPartT m' a
+ Happstack.Server.SimpleHTTP: localContext :: Monad m => (WebT m a -> WebT m' a) -> ServerPartT m a -> ServerPartT m' a
- Happstack.Server.SimpleHTTP: localRq :: (ServerMonad m) => (Request -> Request) -> m a -> m a
+ Happstack.Server.SimpleHTTP: localRq :: ServerMonad m => (Request -> Request) -> m a -> m a
- Happstack.Server.SimpleHTTP: lookRead :: (Read a) => String -> RqData a
+ Happstack.Server.SimpleHTTP: lookRead :: Read a => String -> RqData a
- Happstack.Server.SimpleHTTP: modifyResponse :: (FilterMonad a m) => (a -> a) -> m ()
+ Happstack.Server.SimpleHTTP: modifyResponse :: FilterMonad a m => (a -> a) -> m ()
- Happstack.Server.SimpleHTTP: multi :: (Monad m) => [ServerPartT m a] -> ServerPartT m a
+ Happstack.Server.SimpleHTTP: multi :: Monad m => [ServerPartT m a] -> ServerPartT m a
- Happstack.Server.SimpleHTTP: noHandle :: (MonadPlus m) => m a
+ Happstack.Server.SimpleHTTP: noHandle :: MonadPlus m => m a
- Happstack.Server.SimpleHTTP: notFound :: (FilterMonad Response m) => a -> m a
+ Happstack.Server.SimpleHTTP: notFound :: FilterMonad Response m => a -> m a
- Happstack.Server.SimpleHTTP: ok :: (FilterMonad Response m) => a -> m a
+ Happstack.Server.SimpleHTTP: ok :: FilterMonad Response m => a -> m a
- Happstack.Server.SimpleHTTP: readCookieValue :: (Read a) => String -> RqData a
+ Happstack.Server.SimpleHTTP: readCookieValue :: Read a => String -> RqData a
- Happstack.Server.SimpleHTTP: resp :: (FilterMonad Response m) => Int -> b -> m b
+ Happstack.Server.SimpleHTTP: resp :: FilterMonad Response m => Int -> b -> m b
- Happstack.Server.SimpleHTTP: rproxyServe :: (MonadIO m) => String -> [(String, String)] -> ServerPartT m Response
+ Happstack.Server.SimpleHTTP: rproxyServe :: MonadIO m => String -> [(String, String)] -> ServerPartT m Response
- Happstack.Server.SimpleHTTP: setFilter :: (FilterMonad a m) => (a -> a) -> m ()
+ Happstack.Server.SimpleHTTP: setFilter :: FilterMonad a m => (a -> a) -> m ()
- Happstack.Server.SimpleHTTP: setHeaderM :: (FilterMonad Response m) => String -> String -> m ()
+ Happstack.Server.SimpleHTTP: setHeaderM :: FilterMonad Response m => String -> String -> m ()
- Happstack.Server.SimpleHTTP: setResponseCode :: (FilterMonad Response m) => Int -> m ()
+ Happstack.Server.SimpleHTTP: setResponseCode :: FilterMonad Response m => Int -> m ()
- Happstack.Server.SimpleHTTP: simpleErrorHandler :: (Monad m) => String -> ServerPartT m Response
+ Happstack.Server.SimpleHTTP: simpleErrorHandler :: Monad m => String -> ServerPartT m Response
- Happstack.Server.SimpleHTTP: simpleHTTP :: (ToMessage a) => Conf -> ServerPartT IO a -> IO ()
+ Happstack.Server.SimpleHTTP: simpleHTTP :: ToMessage a => Conf -> ServerPartT IO a -> IO ()
- Happstack.Server.SimpleHTTP: simpleHTTPWithSocket :: (ToMessage a) => Socket -> Conf -> ServerPartT IO a -> IO ()
+ Happstack.Server.SimpleHTTP: simpleHTTPWithSocket :: ToMessage a => Socket -> Conf -> ServerPartT IO a -> IO ()
- Happstack.Server.SimpleHTTP: spUnwrapErrorT :: (Monad m) => (e -> ServerPartT m a) -> Request -> UnWebT (ErrorT e m) a -> UnWebT m a
+ Happstack.Server.SimpleHTTP: spUnwrapErrorT :: Monad m => (e -> ServerPartT m a) -> Request -> UnWebT (ErrorT e m) a -> UnWebT m a
- Happstack.Server.SimpleHTTP: toContentType :: (ToMessage a) => a -> ByteString
+ Happstack.Server.SimpleHTTP: toContentType :: ToMessage a => a -> ByteString
- Happstack.Server.SimpleHTTP: toMessage :: (ToMessage a) => a -> ByteString
+ Happstack.Server.SimpleHTTP: toMessage :: ToMessage a => a -> ByteString
- Happstack.Server.SimpleHTTP: toResponse :: (ToMessage a) => a -> Response
+ Happstack.Server.SimpleHTTP: toResponse :: ToMessage a => a -> Response
- Happstack.Server.SimpleHTTP: unauthorized :: (FilterMonad Response m) => a -> m a
+ Happstack.Server.SimpleHTTP: unauthorized :: FilterMonad Response m => a -> m a
- Happstack.Server.SimpleHTTP: uriRest :: (ServerMonad m) => (String -> m a) -> m a
+ Happstack.Server.SimpleHTTP: uriRest :: ServerMonad m => (String -> m a) -> m a
Files
happstack-server.cabal view
@@ -1,5 +1,5 @@ Name: happstack-server-Version: 0.5.0.3+Version: 0.5.0.4 Synopsis: Web related tools and services. Description: Web framework License: BSD3@@ -65,8 +65,8 @@ filepath, HaXml >= 1.13 && < 1.14, hslogger >= 1.0.2,- happstack-data >= 0.5 && < 0.6,- happstack-util >= 0.5 && < 0.6,+ happstack-data >= 0.5 && < 0.5.1,+ happstack-util >= 0.5 && < 0.5.1, html, MaybeT, mtl >= 1.1 && < 2.1,
src/Happstack/Server/Parts.hs view
@@ -128,7 +128,10 @@ encodings :: GenParser Char st [([Char], Maybe Double)] encodings = ws >> (encoding1 `sepBy` try sep) >>= (\x -> ws >> eof >> return x) where+ ws :: GenParser Char st () ws = many space >> return ()++ sep :: GenParser Char st () sep = do ws _ <- char ','@@ -140,11 +143,17 @@ ws quality<-optionMaybe qual return (encoding, fmap read quality)++ qual :: GenParser Char st String qual = do char ';' >> ws >> char 'q' >> ws >> char '=' >> ws q<-float return q++ int :: GenParser Char st String int = many1 digit++ float :: GenParser Char st String float = do wholePart<-many1 digit fractionalPart<-option "" fraction