From: simonmar <unknown>
Date: Mon, 11 Feb 2002 14:52:11 +0000 (+0000)
Subject: [project @ 2002-02-11 14:52:11 by simonmar]
X-Git-Tag: Approximately_9120_patches~108
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0b78478f5248cd65ca2ffea9d597cdf412b4c924;p=ghc-hetmet.git

[project @ 2002-02-11 14:52:11 by simonmar]
fromInt ==> fromIntegral
---

diff --git a/ghc/compiler/utils/Pretty.lhs b/ghc/compiler/utils/Pretty.lhs
index c033683..08b3671 100644
--- a/ghc/compiler/utils/Pretty.lhs
+++ b/ghc/compiler/utils/Pretty.lhs
@@ -920,7 +920,7 @@ fullRender mode line_length ribbons_per_line txt end doc
     best_doc = best hacked_line_length ribbon_length (reduceDoc doc)
 
     hacked_line_length, ribbon_length :: Int
-    ribbon_length = round (fromInt line_length / ribbons_per_line)
+    ribbon_length = round (fromIntegral line_length / ribbons_per_line)
     hacked_line_length = case mode of { ZigZagMode -> MAXINT; other -> line_length }
 
 display mode IBOX(page_width) IBOX(ribbon_width) txt end doc