X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscMain.lhs;h=e13368f9ae14cb29bbfc0ef1d2673dd9b0fa5684;hb=60bf710865eff2ac5a497aad66c2bccc66a70215;hp=bdc62edf5883086e8fa1ab1e897f954b6c3b0359;hpb=81d32ed75ebf4c8978671a9a0c3c7ab0b189c635;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index bdc62ed..e13368f 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -356,22 +356,6 @@ ppSourceStats short (HsModule name version exports imports decls _ src_loc)
 \end{code}
 
 \begin{code}
-compiler_version :: String
-compiler_version =
-     case (show opt_HiVersion) of
-	[x]	 -> ['0','.',x]
-	ls@[x,y] -> "0." ++ ls
-	ls       -> go ls
- where
-  -- 10232353 => 10232.53
-  go ls@[x,y] = '.':ls
-  go (x:xs)   = x:go xs
-
-booter_version
- = case "\ 
-	\ __GLASGOW_HASKELL__" of
-    ' ':n:ns -> n:'.':ns
-    ' ':m    -> m
 \end{code}
 
 \begin{code}