From 76ad214eab134e4a33ae8279648efd75fdd27d9e Mon Sep 17 00:00:00 2001
From: Louis-Guillaume Gagnon <louis.guillaume.gagnon@gmail.com>
Date: Mon, 2 Sep 2013 18:42:41 -0400
Subject: [PATCH] move runSQL: Add.hs -> Tools/SQL.hs

---
 src/Add.hs       |  8 --------
 src/Tools/SQL.hs | 11 ++++++++++-
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/src/Add.hs b/src/Add.hs
index 3e67c8c..bdb0f41 100644
--- a/src/Add.hs
+++ b/src/Add.hs
@@ -154,14 +154,6 @@ getValues sep argv = getValues' "" argv
 
 
 
-runSQL :: String -> IO ()
-runSQL sql = do
-    db <- opendb
-    run db sql []
-    commit db
-    disconnect db
-    return ()
-
 usageAdd :: String
 usageAdd = "usage: " ++ progName ++ " add <filters>\n\
             \filters:\n\
diff --git a/src/Tools/SQL.hs b/src/Tools/SQL.hs
index da31287..5030d3d 100644
--- a/src/Tools/SQL.hs
+++ b/src/Tools/SQL.hs
@@ -19,7 +19,8 @@
 
 module Tools.SQL (
     createdb,
-    opendb
+    opendb,
+    runSQL
 ) where
 
 import Database.HDBC
@@ -49,5 +50,13 @@ opendb = do
         then do createdb conn
         else do return conn
 
+runSQL :: String -> IO ()
+runSQL sql = do
+    db <- opendb
+    run db sql []
+    commit db
+    disconnect db
+    return ()
+
 
 
-- 
2.11.4.GIT