From 3e5729e3f6d2c67544e2b8c9b3e830e558647a1a Mon Sep 17 00:00:00 2001 From: Bodigrim Date: Sun, 11 Feb 2024 09:25:48 +0000 Subject: [PATCH] Fix typos --- src/Data/Chimera/ContinuousMapping.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Data/Chimera/ContinuousMapping.hs b/src/Data/Chimera/ContinuousMapping.hs index 3158eb0..17d3e1b 100644 --- a/src/Data/Chimera/ContinuousMapping.hs +++ b/src/Data/Chimera/ContinuousMapping.hs @@ -270,7 +270,7 @@ toZCurve3 x y z = part1by2 z `shiftL` 2 .|. part1by2 y `shiftL` 1 .|. part1by2 x fromZCurve3 :: Word -> (ThirdWord, ThirdWord, ThirdWord) fromZCurve3 z = (compact1by2 z, compact1by2 (z `shiftR` 1), compact1by2 (z `shiftR` 2)) --- | Convert a function of two 'HalfWord's to a function of one 'Word'. +-- | Convert a function of two 'ThirdWord's to a function of one 'Word'. contramapFromZCurve3 :: (ThirdWord -> ThirdWord -> ThirdWord -> a) -> (Word -> a) @@ -278,7 +278,7 @@ contramapFromZCurve3 f = uncurry3 f . fromZCurve3 where uncurry3 func (a, b, c) = func a b c --- | Convert a function of one 'Word' to a function of two 'HalfWord's. +-- | Convert a function of one 'Word' to a function of two 'ThirdWord's. contramapToZCurve3 :: (Word -> a) -> (ThirdWord -> ThirdWord -> ThirdWord -> a)