1 files changed, 3 insertions, 3 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 169c900..3576a7a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -382,7 +382,7 @@ printVal = withArg $ \formula -> withFocus $ \focusId -> do
     outline Nothing = shellPutErrLn "No such value"
     outline (Just (Map.toList -> [(v, _)])) = shellPutStrLn $ show v
     outline (Just (sortBy (comparing snd) . Map.toList -> vals)) = mapM_ (shellPutStrLn . outline') vals
-    outline' (v, prob) = pad' 3 (show $ round' prob) ++ " → " ++ show v
-    round' :: RealFrac a => a -> Float
-    round' = (/ 10) . fromIntegral . (round :: RealFrac a => a -> Integer) . (* 10)
+    outline' (v, prob) = pad' 3 (show $ round' 10 prob) ++ " → " ++ show v
+    round' :: RealFrac a => Float -> a -> Float
+    round' n = (/ n) . fromIntegral . (round :: RealFrac a => a -> Integer) . (* n) . realToFrac
     pad' m ys = replicate (m - length (take m ys)) ' ' ++ ys