diff options
| author | Bodigrim <andrew.lelechenko@gmail.com> | 2022-11-19 11:59:03 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-11-25 04:38:28 -0500 |
| commit | 5943e739f8060bcc9867ef048a462f2c465fde00 (patch) | |
| tree | d9107917e28bf3e7680662984af701dc1ae6a821 /libraries/base | |
| parent | d198a19ae08fec797121e3907ca93c5840db0c53 (diff) | |
| download | haskell-5943e739f8060bcc9867ef048a462f2c465fde00.tar.gz | |
Assorted fixes to avoid Data.List.{head,tail}
Diffstat (limited to 'libraries/base')
| -rw-r--r-- | libraries/base/GHC/Fingerprint.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/Fingerprint.hs b/libraries/base/GHC/Fingerprint.hs index 06c4e856e0..cb5e3456c9 100644 --- a/libraries/base/GHC/Fingerprint.hs +++ b/libraries/base/GHC/Fingerprint.hs @@ -43,7 +43,7 @@ fingerprint0 = Fingerprint 0 0 fingerprintFingerprints :: [Fingerprint] -> Fingerprint fingerprintFingerprints fs = unsafeDupablePerformIO $ withArrayLen fs $ \len p -> - fingerprintData (castPtr p) (len * sizeOf (head fs)) + fingerprintData (castPtr p) (len * sizeOf (undefined :: Fingerprint)) fingerprintData :: Ptr Word8 -> Int -> IO Fingerprint fingerprintData buf len = |