fix one more fingerprint

Author: pepeiborra

ghcide/src/Development/IDE/Core/RuleTypes.hs

@@ -37,9 +37,9 @@ import           HscTypes                                     (HomeModInfo,
                                                                hm_linkable)
 
 import           Data.ByteString                              (ByteString)
-import qualified Data.ByteString.Char8                        as BS
 import           Data.Int                                     (Int64)
 import           Data.Text                                    (Text)
+import           Data.Time
 import           Development.IDE.Import.FindImports           (ArtifactsLocation)
 import           Development.IDE.Spans.Common
 import           Development.IDE.Spans.LocalBindings
@@ -48,6 +48,8 @@ import           Fingerprint
 import           GHC.Serialized                               (Serialized)
 import           Language.LSP.Types                           (NormalizedFilePath)
 import           TcRnMonad                                    (TcGblEnv)
+import qualified Data.Binary as B
+import qualified Data.ByteString.Lazy as LBS
 
 data LinkableType = ObjectLinkable | BCOLinkable
   deriving (Eq,Ord,Show, Generic)
@@ -168,11 +170,11 @@ hiFileFingerPrint HiFileResult{..} = hirIfaceFp <> hirLinkableFp
 mkHiFileResult :: ModSummary -> HomeModInfo -> HiFileResult
 mkHiFileResult hirModSummary hirHomeMod = HiFileResult{..}
   where
-    hirIfaceFp =
-      fingerprintToBS . getModuleHash . hm_iface $ hirHomeMod -- will always be two bytes
+    hirIfaceFp = fingerprintToBS . getModuleHash . hm_iface $ hirHomeMod -- will always be two bytes
     hirLinkableFp = case hm_linkable hirHomeMod of
       Nothing -> ""
-      Just l  -> BS.pack $ show $ linkableTime l
+      Just LM{linkableTime}  -> LBS.toStrict $
+        B.encode (fromEnum $ utctDay linkableTime, fromEnum $ utctDayTime linkableTime)
 
 hirModIface :: HiFileResult -> ModIface
 hirModIface = hm_iface . hirHomeMod