From bbe69d25a28416de19c429fd3f635edf1a0be0a4 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 3 Apr 2013 12:20:40 +0300
Subject: [PATCH] Fix a test

---
 yesod-persistent/test/Yesod/PersistSpec.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/yesod-persistent/test/Yesod/PersistSpec.hs b/yesod-persistent/test/Yesod/PersistSpec.hs
index 158a9c5c..bf29910c 100644
--- a/yesod-persistent/test/Yesod/PersistSpec.hs
+++ b/yesod-persistent/test/Yesod/PersistSpec.hs
@@ -6,13 +6,12 @@ import Test.Hspec
 import Database.Persist.Sqlite
 import Network.Wai.Test
 import Yesod.Core
-import Database.Persist.Store
 import Data.Conduit
 import Blaze.ByteString.Builder.Char.Utf8 (fromText)
 import Yesod.Persist
 import Data.Text (Text)
 
-share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persist|
+share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
 Person
     name Text
 |]
@@ -28,7 +27,7 @@ mkYesod "App" [parseRoutes|
 
 instance Yesod App
 instance YesodPersist App where
-    type YesodPersistBackend App = SqlPersist
+    type YesodPersistBackend App = SqlPersistT
     runDB = defaultRunDB appConfig appPool
 instance YesodPersistRunner App where
     getDBRunner = defaultGetDBRunner appPool