The "getvalue'" optimization!

2024-12-27 12:35:50 +03:00 · 2015-11-21 11:44:57 +03:00 · 2015-11-21 11:44:57 +03:00 · 23c3946bac
commit 23c3946bac
parent 8937fe6e1e
1 changed files with 1 additions and 1 deletions
--- a/library/Hasql/Deserialization/Row.hs
+++ b/library/Hasql/Deserialization/Row.hs
@ -46,7 +46,7 @@ value valueDes =
    writeIORef columnRef (succ col)
    if col < columnsAmount
      then do
-        valueMaybe <- LibPQ.getvalue result row col
+        valueMaybe <- {-# SCC "getvalue'" #-} LibPQ.getvalue' result row col
        pure $ 
          case valueMaybe of
            Nothing ->