[DEBUG] message for SQL.

src/Gargantext/Database/Metrics/NgramsByNode.hs

@@ -253,7 +253,7 @@ SELECT nng.node_id, ng.id, ng.terms FROM nodes_ngrams nng
     AND nng.ngrams_type = ? -- NgramsTypeId
   GROUP BY nng.node_id, ng.id, ng.terms)
 
-SELECT m.node_id, m.terms FROM nodesByNgramsMaster m
+SELECTx m.node_id, m.terms FROM nodesByNgramsMaster m
 RIGHT JOIN nodesByNgramsUser u ON u.id = m.id
 
   |]

src/Gargantext/Database/Utils.hs

@@ -20,10 +20,9 @@ commentary with @some markup@.
 
 module Gargantext.Database.Utils where
 
-import Prelude (String)
-import Control.Monad ((>>))
---import Data.Text (Text)
-import Control.Monad.Error.Class (MonadError(..))
+import Control.Exception
+import Data.Text (Text)
+import Control.Monad.Error.Class -- (MonadError(..), Error)
 import Control.Lens (Getter, view)
 import Control.Monad.Reader
 import Control.Monad.Except
@@ -84,17 +83,26 @@ runOpaQuery q = mkCmd $ \c -> runQuery c q
 formatPGSQuery :: PGS.ToRow a => PGS.Query -> a -> Cmd err DB.ByteString
 formatPGSQuery q a = mkCmd $ \conn -> PGS.formatQuery conn q a
 
-runPGSQuery' :: (PGS.ToRow a, PGS.FromRow b) => PGS.Query -> a -> Cmd err [b]
-runPGSQuery' q a = mkCmd $ \conn -> PGS.query conn q a
+runPGSQuery :: (PGS.ToRow a, PGS.FromRow b) => PGS.Query -> a -> Cmd err [b]
+runPGSQuery q a = mkCmd $ \conn -> PGS.query conn q a
 
-runPGSQuery :: (MonadError err m, MonadReader env m,
+
+data SqlErrorX = SqlErrorX
+  deriving (Eq, Show)
+
+instance Exception SqlErrorX
+
+
+runPGSQuery' :: (MonadError (SqlErrorX) m, MonadReader env m,
                 PGS.FromRow r, PGS.ToRow q, MonadIO m, HasConnection env)
                 => PGS.Query -> q -> m [r]
-runPGSQuery q a = mkCmd $ \conn -> catchError (PGS.query conn q a)
-                              (\e ->  putStrLn ("Text xxxxxxxxxxxxxxxxxxx" :: String)
-                              --(\e -> putStrLn ((cs $ formatPGSQuery q a):: Text)
-                                   >> throwError e
-                                )
+runPGSQuery' q a = mkCmd $ \conn -> catchError (PGS.query conn q a) (printError conn)
+  where
+    printError c e = do
+      q' <- (PGS.formatQuery c q a :: IO DB.ByteString)
+      putStrLn (cs q':: Text)
+      throwError e
+
 
 execPGSQuery :: PGS.ToRow a => PGS.Query -> a -> Cmd err Int64
 execPGSQuery q a = mkCmd $ \conn -> PGS.execute conn q a