Fix typos

Bodigrim · Feb 11, 2024 · 3e5729e · 3e5729e
1 parent ead0236
commit 3e5729e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Data/Chimera/ContinuousMapping.hs b/src/Data/Chimera/ContinuousMapping.hs
@@ -270,15 +270,15 @@ 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)
 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)