From 19896f6a42ddfdccbfb80a9eb1a8e76b1202cdc6 Mon Sep 17 00:00:00 2001
From: Araq <rumpf_a@web.de>
Date: Tue, 18 Oct 2011 17:21:51 +0200
Subject: [PATCH] much more efficient rod file generation

---
 src/db_sqlite.nim | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/db_sqlite.nim b/src/db_sqlite.nim
index 8c2de0dc7b..d09051cd44 100755
--- a/src/db_sqlite.nim
+++ b/src/db_sqlite.nim
@@ -118,8 +118,7 @@ proc GetValue*(db: TDbConn, query: TSqlQuery,
   ## of the first row. Returns "" if the dataset contains no rows.
   var stmt = setupQuery(db, query, args)
   if step(stmt) == SQLITE_ROW: 
-    result = newString(column_bytes(stmt, 0))
-    setLen(result, 0)
+    result = newStringOfCap(column_bytes(stmt, 0))
     add(result, column_text(stmt, 0))
     if finalize(stmt) != SQLITE_OK: dbError(db)
   else: