From 36c18a2fd6672a59b07b938ef86fab258988e35a Mon Sep 17 00:00:00 2001
From: Nikita Volkov <nikita.y.volkov@mail.ru>
Date: Fri, 20 Nov 2015 09:28:26 +0300
Subject: [PATCH] SCC

---
 library/Hasql/Deserialization.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/library/Hasql/Deserialization.hs b/library/Hasql/Deserialization.hs
index 4a9cb27..1873adc 100644
--- a/library/Hasql/Deserialization.hs
+++ b/library/Hasql/Deserialization.hs
@@ -298,7 +298,8 @@ int4 =
 {-# INLINABLE int8 #-}
 int8 :: Value Int64
 int8 =
-  Value (Value.decoder (const Decoder.int))
+  {-# SCC "int8" #-} 
+  Value (Value.decoder (const ({-# SCC "int8.int" #-} Decoder.int)))
 
 -- |
 -- Deserializer of the @FLOAT4@ values.