From b13875b8a67a6dd2dcc4151ff3078508ef1030e6 Mon Sep 17 00:00:00 2001
From: patrick brisbin <pbrisbin@gmail.com>
Date: Wed, 21 Sep 2011 18:52:08 -0400
Subject: [PATCH] make sqlite db a Text

---
 yesod-core/Yesod/Config.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/yesod-core/Yesod/Config.hs b/yesod-core/Yesod/Config.hs
index dcd2902e..86ba3873 100644
--- a/yesod-core/Yesod/Config.hs
+++ b/yesod-core/Yesod/Config.hs
@@ -36,7 +36,7 @@ data PostgresConf = PostgresConf
 
 -- | Information required to connect to a sqlite database
 data SqliteConf = SqliteConf
-    { sqlDatabase :: String
+    { sqlDatabase :: Text
     , sqlPoolSize :: Int
     }
 
@@ -142,7 +142,7 @@ loadSqlite env = withYamlEnvironment "config/sqlite.yml" env $ \e -> do
     db   <- lookupScalar "database" e
     pool <- safeRead =<< lookupScalar "poolsize" e
 
-    return $ SqliteConf db pool
+    return $ SqliteConf (T.pack db) pool
 
 -- | Load a @'MongoConf'@ from @config\/mongoDB.yml@.
 --