haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tests build again

Browse Source
This commit is contained in:
Michael Snoyman 2010-08-09 17:53:33 +03:00
parent 2f3a0effff
commit 90a56784eb
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Content.hs
View File

@ -245,8 +245,8 @@ propExt s =
caseTypeByExt :: Assertion caseTypeByExt :: Assertion
caseTypeByExt = do caseTypeByExt = do
typeJavascript @=? typeByExt (ext "foo.js") Just typeJavascript @=? lookup (ext "foo.js") typeByExt
typeHtml @=? typeByExt (ext "foo.html") Just typeHtml @=? lookup (ext "foo.html") typeByExt
#endif #endif
-- | Format a 'UTCTime' in W3 format; useful for setting cookies. -- | Format a 'UTCTime' in W3 format; useful for setting cookies.

6
Yesod/Json.hs
View File

@ -130,10 +130,10 @@ caseSimpleOutput = do
let j = do let j = do
jsonMap jsonMap
[ ("foo" , jsonList [ ("foo" , jsonList
[ jsonScalar $ fromByteString "bar" [ jsonScalar "bar"
, jsonScalar $ fromByteString "baz" , jsonScalar "baz"
]) ])
] ]
"{\"foo\":[\"bar\",\"baz\"]}" @=? unpack (renderHtml $ unJson j) "{\"foo\":[\"bar\",\"baz\"]}" @=? unpack (toLazyByteString $ unJson j)
#endif #endif