small fixes

diff --git a/Blog/Blog b/Blog/Blog
index 9ad5878..0ee7675 100755
Binary files a/Blog/Blog and b/Blog/Blog differ
diff --git a/Blog/Config.hs b/Blog/Config.hs
index de23091..c84c5fa 100644
--- a/Blog/Config.hs
+++ b/Blog/Config.hs
@@ -8,11 +8,11 @@ params = HP { docdir = "static",
 --               dbDriver = "sqlite3",
               dbDriver = "psql",
 --               dbPath = "blog.db",
-              dbPath = "host=localhost password=31415",
+              dbPath = "host=rtfm-server password=31415",
 --               cacheDriver = "memcached",
---               cachePath = "localhost:11211",
-              cacheDriver = "fake",
---               cacheDriver = "filesystem",
+--               cachePath = "rtfm-server:11211",
+--               cacheDriver = "fake",
+              cacheDriver = "filesystem",
               cachePath = "tmp/",
               sessionsDriver = "files",
               sessionsPath = "tmp/sessions/"
diff --git a/Framework/Storage.hs b/Framework/Storage.hs
index 92b4583..7c6d4ba 100644
--- a/Framework/Storage.hs
+++ b/Framework/Storage.hs
@@ -39,6 +39,8 @@ query :: DBConnection
       -> [D.SqlValue]                -- ^ List of SQL parameters
       -> IO [[D.SqlValue]]
 query (DBC conn) sql params = D.quickQuery conn sql params
+-- query dbc sql params = let (DBC conn) = dbc in
+--         D.quickQuery conn sql params

 -- | Generic query. Strict.
 query' :: DBConnection -> String -> [D.SqlValue] -> IO [[D.SqlValue]]