1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Origin: https://github.com/ndmitchell/hoogle/issues/359#issuecomment-711147040
Last-Update: 2025-11-26
--- haskell-hoogle-5.0.18.4+dfsg1.orig/src/Output/Types.hs
+++ haskell-hoogle-5.0.18.4+dfsg1/src/Output/Types.hs
@@ -267,7 +267,7 @@ fpRaresFold :: (b -> b -> b) -> (Name ->
fpRaresFold g f Fingerprint{..} = f fpRare1 `g` f fpRare2 `g` f fpRare3
instance Storable Fingerprint where
- sizeOf _ = 3*sizeOf name0 + 2
+ sizeOf _ = 4*sizeOf name0
alignment _ = 4
peekByteOff ptr i = Fingerprint
<$> peekByteOff ptr (i+0) <*> peekByteOff ptr (i+1*w) <*> peekByteOff ptr (i+2*w)
|
