Compilation fix for GHC 7.8
This commit is contained in:
parent
ae7dfd2408
commit
03c1ee4807
@ -1,3 +1,7 @@
|
||||
## 1.5.4.1
|
||||
|
||||
* Compilation fix for GHC 7.8
|
||||
|
||||
## 1.5.4
|
||||
|
||||
* yesod-test: add getLocation test helper. [#1314](https://github.com/yesodweb/yesod/pull/1314)
|
||||
|
||||
@ -146,6 +146,7 @@ import qualified Blaze.ByteString.Builder as Builder
|
||||
import Data.Time.Clock (getCurrentTime)
|
||||
import Control.Applicative ((<$>))
|
||||
import Text.Show.Pretty (ppShow)
|
||||
import Data.Monoid (mempty)
|
||||
|
||||
-- | The state used in a single test case defined using 'yit'
|
||||
--
|
||||
@ -772,7 +773,7 @@ getLocation = do
|
||||
where decodePath b = let (x, y) = BS8.break (=='?') b
|
||||
in (H.decodePathSegments x, unJust <$> H.parseQueryText y)
|
||||
unJust (a, Just b) = (a, b)
|
||||
unJust (a, Nothing) = (a, mempty)
|
||||
unJust (a, Nothing) = (a, Data.Monoid.mempty)
|
||||
|
||||
-- | Sets the HTTP method used by the request.
|
||||
--
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
name: yesod-test
|
||||
version: 1.5.4
|
||||
version: 1.5.4.1
|
||||
license: MIT
|
||||
license-file: LICENSE
|
||||
author: Nubis <nubis@woobiz.com.ar>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user