X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;fp=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;h=171cecf2a61d9f52c9999082300f90caa575da45;hb=9d7da331989abcd1844e9d03b8d1e4163796fa85;hp=85099e89d53f6fdc3f5d8adcac00e236b4475fd8;hpb=2a2efb720c0fdc06fe749f96f284b00b30f8f3f7;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 85099e8..171cecf 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1396,9 +1396,9 @@ getOptionsFromSource file
 		       | otherwise -> return []
 
 getOptionsFromStringBuffer :: StringBuffer -> FilePath -> [(Int,String)]
-getOptionsFromStringBuffer buffer@(StringBuffer _ len# _) fn = 
+getOptionsFromStringBuffer buffer@(StringBuffer _ len _) fn = 
   let 
-	ls = lines (lexemeToString buffer (I# len#))  -- lazy, so it's ok
+	ls = lines (lexemeToString buffer len)  -- lazy, so it's ok
   in
   look 1 ls
   where