Skip to content
This repository was archived by the owner on Oct 7, 2020. It is now read-only.

Commit f340cf1

Browse files
expipiplus1fendor
authored andcommitted

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

hie-plugin-api/Haskell/Ide/Engine/GhcUtils.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ import Haskell.Ide.Engine.PluginUtils (ErrorHandler(..))
1717
-- Convert progress continuation to a messager
1818
toMessager :: (Core.Progress -> IO ()) -> G.Messager
1919
toMessager k _hsc_env (nk, n) _rc_reason ms =
20-
let prog = Core.Progress (Just (fromIntegral nk/ fromIntegral n)) (Just mod_name)
20+
let prog = Core.Progress (Just (100 * fromIntegral nk / fromIntegral n)) (Just mod_name)
2121
mod_name = T.pack $ moduleNameString (moduleName (ms_mod ms))
2222
in k prog
2323

0 commit comments

Comments
 (0)