Commit 66146ae3 authored by Lennart Kolmodin's avatar Lennart Kolmodin
Browse files

Force the Fingerprint constructor to reduce memory usage.

The two fields are unpacked, so this saves a couple of words per field
until the Fingerprint value gets used.
parent 0cd15290
...@@ -599,5 +599,5 @@ instance Binary Fingerprint where ...@@ -599,5 +599,5 @@ instance Binary Fingerprint where
get = do get = do
x1 <- get x1 <- get
x2 <- get x2 <- get
return (Fingerprint x1 x2) return $! Fingerprint x1 x2
#endif #endif
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment