Tabs -> Spaces + cleaning
authorDavid Terei <davidterei@gmail.com>
Fri, 18 Nov 2011 23:44:14 +0000 (15:44 -0800)
committerDavid Terei <davidterei@gmail.com>
Tue, 22 Nov 2011 19:05:14 +0000 (11:05 -0800)
compiler/ghci/ByteCodeItbls.lhs
compiler/main/DriverPhases.hs
compiler/main/DriverPipeline.hs

index 3c1cbb5..ed94526 100644 (file)
@@ -4,22 +4,8 @@
 ByteCodeItbls: Generate infotables for interpreter-made bytecodes
 
 \begin{code}
-{-# OPTIONS -fno-warn-tabs #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and
--- detab the module (please do the detabbing in a separate patch). See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces
--- for details
-
 {-# OPTIONS -optc-DNON_POSIX_SOURCE #-}
 
-{-# OPTIONS -w #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and fix
--- any warnings in the module. See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
--- for details
-
 module ByteCodeItbls ( ItblEnv, ItblPtr(..), itblCode, mkITbls
                      , StgInfoTable(..)
                      ) where
index 6ece67e..29dbb58 100644 (file)
@@ -7,19 +7,12 @@
 --
 -----------------------------------------------------------------------------
 
-{-# OPTIONS -fno-warn-tabs #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and
--- detab the module (please do the detabbing in a separate patch). See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces
--- for details
-
 module DriverPhases (
    HscSource(..), isHsBoot, hscSourceString,
    Phase(..),
    happensBefore, eqPhase, anyHsc, isStopLn,
-   startPhase,          -- :: String -> Phase
-   phaseInputExt,       -- :: Phase -> String
+   startPhase,
+   phaseInputExt,
 
    isHaskellishSuffix,
    isHaskellSrcSuffix,
@@ -37,7 +30,7 @@ module DriverPhases (
    isExtCoreFilename,
    isDynLibFilename,
    isHaskellUserSrcFilename,
-   isSourceFilename         -- :: FilePath -> Bool
+   isSourceFilename
  ) where
 
 #include "HsVersions.h"
@@ -125,8 +118,8 @@ eqPhase HCc         HCc        = True
 eqPhase Splitter    Splitter   = True
 eqPhase SplitAs     SplitAs    = True
 eqPhase As          As         = True
-eqPhase LlvmOpt            LlvmOpt    = True
-eqPhase LlvmLlc            LlvmLlc    = True
+eqPhase LlvmOpt     LlvmOpt    = True
+eqPhase LlvmLlc     LlvmLlc    = True
 eqPhase LlvmMangle  LlvmMangle = True
 eqPhase CmmCpp      CmmCpp     = True
 eqPhase Cmm         Cmm        = True
@@ -281,4 +274,3 @@ isHaskellUserSrcFilename f = isHaskellUserSrcSuffix (drop 1 $ takeExtension f)
 isDynLibFilename         f = isDynLibSuffix         (drop 1 $ takeExtension f)
 isSourceFilename         f = isSourceSuffix         (drop 1 $ takeExtension f)
 
-
index e590658..6228d10 100644 (file)
@@ -1000,11 +1000,6 @@ runPhase Cmm input_fn dflags
 
         io $ hscCompileCmmFile hsc_env input_fn
 
-        -- XXX: catch errors above and convert them into ghcError?  Original
-        -- code was:
-        --
-        --when (not ok) $ ghcError (PhaseFailed "cmm" (ExitFailure 1))
-
         return (next_phase, output_fn)
 
 -----------------------------------------------------------------------------
@@ -1063,7 +1058,6 @@ runPhase cc_phase input_fn dflags
                    | otherwise            = "-O"
 
         -- Decide next phase
-
         let next_phase = As
         output_fn <- phaseOutputFilename next_phase
 
@@ -1136,8 +1130,6 @@ runPhase cc_phase input_fn dflags
 
         return (next_phase, output_fn)
 
-        -- ToDo: postprocess the output from gcc
-
 -----------------------------------------------------------------------------
 -- Splitting phase