[project @ 2003-01-07 16:30:37 by simonmar]

80-columnify a comment

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index a16aab1..8054e91 100644 (file)
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -225,9 +225,10 @@ hiOnlyModLocation path basename hisuf
         return (ModLocation{ ml_hspp_file = Nothing,
                             ml_hs_file   = Nothing,
                             ml_hi_file   = path ++ '/':basename ++ '.':hisuf,
-                                   -- Remove the .hi-boot suffix from hi_file, if it
-                                   -- had one.  We always want the name of the real
-                                   -- .hi file in the ml_hi_file field.
+                               -- Remove the .hi-boot suffix from
+                               -- hi_file, if it had one.  We always
+                               -- want the name of the real .hi file
+                               -- in the ml_hi_file field.
                             ml_obj_file  = obj_fn
                  })}