From ab65accb44bcd7d367b2e3c20fa7467eb6c88c6f Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 11 Dec 2009 13:19:09 +0200
Subject: [PATCH] Fixed badly named test group in Yesod.Utils

---
 Yesod/Utils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Yesod/Utils.hs b/Yesod/Utils.hs
index dc9cde32..e8959e88 100644
--- 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
     ]