print sql query if errors

digitallyinduced · Aug 12, 2021 · 9d91885 · 9d91885
1 parent 2daff06
commit 9d91885
Showing 1 changed file with 10 additions and 5 deletions.
diff --git a/IHP/ModelSupport.hs b/IHP/ModelSupport.hs
@@ -326,11 +326,16 @@ measureTimeIfLogging queryAction theQuery theParameters = do
     if currentLogLevel == Debug
         then do
             start <- getCurrentTime
-            result <- queryAction
-            end <- getCurrentTime
-            let theTime = end `diffUTCTime` start
-            logQuery theQuery theParameters theTime
-            pure result
+            result <- try $ queryAction
+
+            case result of
+                Left (e :: SomeException) -> do
+                    error $ replicate "=" 30 <> "\nError in query: \n" <> show theQuery <> "\n" <> show e <> replicate "=" 30
+                Right result -> do
+                    end <- getCurrentTime
+                    let theTime = end `diffUTCTime` start
+                    logQuery theQuery theParameters theTime
+                    pure result
         else queryAction
 
 -- | Runs a raw sql query