Round results to nearest integer

input-output-hk · Jan 18, 2021 · d828d5f · d828d5f
1 parent f682f0a
commit d828d5f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Main.hs b/src/Main.hs
@@ -60,13 +60,13 @@ main = do
         raw :: [(Hash StakeKey, Double)]
         raw = M.toList votingProportions
 
-        ofRewards :: Double -> Double
-        ofRewards = ((fromIntegral totalRewards) *)
+        ofRewards :: Double -> Integer
+        ofRewards = round . ((fromIntegral totalRewards) *)
 
         toBech32Addr :: Hash StakeKey -> Text
         toBech32Addr = serialiseToBech32 . makeStakeAddress networkId . StakeCredentialByKey
 
-        toRewards :: [(Hash StakeKey, Double)] -> Map Text Double
+        toRewards :: [(Hash StakeKey, Double)] -> Map Text Integer
         toRewards = M.fromList . fmap (\(hash, proportion) -> (toBech32Addr hash, ofRewards proportion))
 
       BLC.writeFile outfile . toJSON Aeson.Decimal . toRewards $ raw