Fixed badly named test group in Yesod.Utils

2009-12-11 13:19:09 +02:00 · 2009-12-11 13:19:09 +02:00 · ab65accb44
commit ab65accb44
parent 2eb6f2f05b
1 changed files with 1 additions and 1 deletions
--- a/Yesod/Utils.hs
+++ b/Yesod/Utils.hs
@ -46,7 +46,7 @@ tryLookup def key = fromMaybe def . lookup key
 #if TEST
 ----- Testing
 testSuite :: Test
-testSuite = testGroup "Yesod.Response"
+testSuite = testGroup "Yesod.Utils"
    [ testCase "tryLookup1" caseTryLookup1
    , testCase "tryLookup2" caseTryLookup2
    ]