From: simonmar <unknown>
Date: Tue, 7 Jan 2003 16:30:37 +0000 (+0000)
Subject: [project @ 2003-01-07 16:30:37 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1292
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b5219fe27e7d67359c6a5a169603753ebb740353;p=ghc-hetmet.git

[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
--- 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
                  })}