Exact arithmetic for relative jumps.

Author: galenhuntington

Core.hs

@@ -324,7 +324,7 @@ jump :: Int -> IO ()
 jump = jumpFn . const
 
 -- | Jump to relative place, 0 to 1.
-jumpRel :: Float -> IO ()
+jumpRel :: Rational -> IO ()
 jumpRel r | r < 0 || r >= 1 = pure ()
           | True = modifyHS_ $ \st ->
               st { cursor = floor $ fromIntegral (size st) * r }

Keymap.hs

@@ -65,7 +65,7 @@ mainMode = KeyMap \c -> getsHS modal >>= \case
         | c `elem` ['H', ';'] ->
             showHist $> mainMode
         | c >= '1' && c <= '9' ->
-            jumpRel (0.1 * fromIntegral (fromEnum c - 48)) $> mainMode
+            jumpRel (fromIntegral (fromEnum c - 48) / 10) $> mainMode
         | True -> sequence_ (M.lookup c keyMap) $> mainMode