hack-contrib 2009.4.52.2 → 2009.5.13

raw patch · 7 files changed

+10/−20 lines, 7 filesdep ~mps

Dependency ranges changed: mps

Files

• changelog.md +7/−0
• hack-contrib.cabal +2/−2
• src/Hack/Contrib/Middleware/ETag.hs +0/−1
• src/Hack/Contrib/Middleware/Hub.hs +0/−2
• src/Hack/Contrib/Middleware/RawRouter.hs +0/−1
• src/Hack/Contrib/Middleware/SimpleRouter.hs +0/−1
• src/Hack/Contrib/Utils.hs +1/−13

@@ -1,3 +1,10 @@+2009.5.13+---------++### Fix++* use lighter mps for minimal dependency+ 2009.4.52.2 ----------- 

@@ -1,5 +1,5 @@ Name:                 hack-contrib-Version:              2009.4.52.2+Version:              2009.5.13 Build-type:           Simple Synopsis:             Hack contrib Description:          Hack contrib@@ -15,7 +15,7 @@  library   ghc-options: -Wall-  build-depends: base, cgi, network, haskell98, old-locale, old-time, directory, filepath, containers, bytestring, ansi-wl-pprint, mps >= 2009.4.50, data-default >= 0.2, ansi-wl-pprint, unix, time, pureMD5, hack >= 2009.4.52+  build-depends: base, cgi, network, haskell98, old-locale, old-time, directory, filepath, containers, bytestring, ansi-wl-pprint, data-default >= 0.2, ansi-wl-pprint, unix, time, pureMD5, mps >= 2009.5.13, hack >= 2009.4.52   hs-source-dirs: src/   exposed-modules:                       Hack.Contrib.Utils

@@ -4,7 +4,6 @@ module Hack.Contrib.Middleware.ETag (etag) where  import Hack-import Hack.Contrib.Utils import Hack.Contrib.Response import Hack.Contrib.Constants 

@@ -5,8 +5,6 @@  module Hack.Contrib.Middleware.Hub where -import Hack.Contrib.Utils- import MPSUTF8 import Prelude hiding ((.), (^), (>), (+)) 

@@ -1,7 +1,6 @@ module Hack.Contrib.Middleware.RawRouter (route) where  import Hack-import Hack.Contrib.Utils import Hack.Contrib.Request hiding (path)  import MPSUTF8

@@ -15,7 +15,6 @@ module Hack.Contrib.Middleware.SimpleRouter (route) where  import Hack-import Hack.Contrib.Utils  import MPSUTF8 import Prelude hiding ((.), (^), (>))

@@ -12,28 +12,16 @@ import Network.URI hiding (path) import Data.Default -import Control.Arrow ((>>>), (<<<))+import Control.Arrow ((<<<)) import qualified Data.Map as M import Data.Time import Control.Monad (mplus, MonadPlus) import Data.Maybe-import System.IO-import System.FilePath ((</>))-import Control.Category (Category) import Data.List (lookup) --(>) :: (Control.Category.Category cat) => cat a b -> cat b c -> cat a c-(>) = (>>>)-infixl 8 >- (+) :: (MonadPlus m) => m a -> m a -> m a (+) = mplus infixl 8 +--(/) :: FilePath -> FilePath -> FilePath-(/) = (</>)-infixl 5 /  empty_app :: Application empty_app = return def