From 0b78478f5248cd65ca2ffea9d597cdf412b4c924 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 11 Feb 2002 14:52:11 +0000
Subject: [PATCH] [project @ 2002-02-11 14:52:11 by simonmar] fromInt ==>
 fromIntegral

---
 ghc/compiler/utils/Pretty.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4