de-tabbed the hs-boot files
authorIan Lynagh <igloo@earth.li>
Wed, 25 Jan 2012 16:30:36 +0000 (16:30 +0000)
committerIan Lynagh <igloo@earth.li>
Thu, 26 Jan 2012 19:54:12 +0000 (19:54 +0000)
compiler/deSugar/DsExpr.lhs-boot
compiler/deSugar/Match.lhs-boot
compiler/hsSyn/HsExpr.lhs-boot
compiler/nativeGen/SPARC/CodeGen/Gen32.hs-boot
compiler/rename/RnExpr.lhs-boot
compiler/typecheck/TcExpr.lhs-boot
compiler/typecheck/TcMatches.lhs-boot
compiler/typecheck/TcSplice.lhs-boot
compiler/typecheck/TcUnify.lhs-boot
compiler/types/TyCon.lhs-boot

index 2a6d09b..03a47ed 100644 (file)
@@ -1,16 +1,9 @@
 \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
-
 module DsExpr where
-import HsSyn   ( HsExpr, LHsExpr, HsLocalBinds )
-import Var     ( Id )
-import DsMonad ( DsM )
-import CoreSyn ( CoreExpr )
+import HsSyn    ( HsExpr, LHsExpr, HsLocalBinds )
+import Var      ( Id )
+import DsMonad  ( DsM )
+import CoreSyn  ( CoreExpr )
 
 dsExpr  :: HsExpr  Id -> DsM CoreExpr
 dsLExpr :: LHsExpr Id -> DsM CoreExpr
index 31ee36b..d10cda9 100644 (file)
@@ -1,42 +1,35 @@
 \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
-
 module Match where
-import Var     ( Id )
-import TcType  ( Type )
-import DsMonad ( DsM, EquationInfo, MatchResult )
-import CoreSyn ( CoreExpr )
-import HsSyn   ( LPat, HsMatchContext, MatchGroup )
-import Name    ( Name )
+import Var      ( Id )
+import TcType   ( Type )
+import DsMonad  ( DsM, EquationInfo, MatchResult )
+import CoreSyn  ( CoreExpr )
+import HsSyn    ( LPat, HsMatchContext, MatchGroup )
+import Name     ( Name )
 
-match  :: [Id]
+match   :: [Id]
         -> Type
-       -> [EquationInfo]
-       -> DsM MatchResult
+        -> [EquationInfo]
+        -> DsM MatchResult
 
 matchWrapper
-       :: HsMatchContext Name
+        :: HsMatchContext Name
         -> MatchGroup Id
-       -> DsM ([Id], CoreExpr)
+        -> DsM ([Id], CoreExpr)
 
 matchSimply
-       :: CoreExpr
-       -> HsMatchContext Name
-       -> LPat Id
-       -> CoreExpr
-       -> CoreExpr
-       -> DsM CoreExpr
+        :: CoreExpr
+        -> HsMatchContext Name
+        -> LPat Id
+        -> CoreExpr
+        -> CoreExpr
+        -> DsM CoreExpr
 
 matchSinglePat
-       :: CoreExpr
-       -> HsMatchContext Name
-       -> LPat Id
+        :: CoreExpr
+        -> HsMatchContext Name
+        -> LPat Id
         -> Type
-       -> MatchResult
-       -> DsM MatchResult
+        -> MatchResult
+        -> DsM MatchResult
 \end{code}
index 6666243..86032f5 100644 (file)
@@ -1,15 +1,8 @@
 \begin{code}
 {-# LANGUAGE KindSignatures #-}
-{-# 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 HsExpr where
 
-import SrcLoc    ( Located )
+import SrcLoc     ( Located )
 import Outputable ( SDoc, OutputableBndr )
 import {-# SOURCE #-} HsPat  ( LPat )
 
@@ -34,17 +27,17 @@ type LHsExpr a = Located (HsExpr a)
 type SyntaxExpr a = HsExpr a
 
 pprLExpr :: (OutputableBndr i) => 
-       LHsExpr i -> SDoc
+        LHsExpr i -> SDoc
 
 pprExpr :: (OutputableBndr i) => 
-       HsExpr i -> SDoc
+        HsExpr i -> SDoc
 
 pprSplice :: (OutputableBndr i) => 
-       HsSplice i -> SDoc
+        HsSplice i -> SDoc
 
 pprPatBind :: (OutputableBndr b, OutputableBndr i) => 
-       LPat b -> GRHSs i -> SDoc
+        LPat b -> GRHSs i -> SDoc
 
 pprFunBind :: (OutputableBndr idL, OutputableBndr idR) => 
-       idL -> Bool -> MatchGroup idR -> SDoc
+        idL -> Bool -> MatchGroup idR -> SDoc
 \end{code}
index 0e639a3..7de92cb 100644 (file)
@@ -1,14 +1,7 @@
 
-{-# 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 SPARC.CodeGen.Gen32 (
-       getSomeReg,
-       getRegister
+        getSomeReg,
+        getRegister
 )
 
 where
index 5ca81d6..70d891d 100644 (file)
@@ -1,24 +1,17 @@
 \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
-
 module RnExpr where
 import HsSyn
-import Name    ( Name )
-import NameSet ( FreeVars )
-import RdrName ( RdrName )
+import Name     ( Name )
+import NameSet  ( FreeVars )
+import RdrName  ( RdrName )
 import TcRnTypes
 
 rnLExpr :: LHsExpr RdrName
-       -> RnM (LHsExpr Name, FreeVars)
+        -> RnM (LHsExpr Name, FreeVars)
 
 rnStmts :: --forall thing.
-          HsStmtContext Name -> [LStmt RdrName]
+           HsStmtContext Name -> [LStmt RdrName]
         -> ([Name] -> RnM (thing, FreeVars))
-       -> RnM (([LStmt Name], thing), FreeVars)
+        -> RnM (([LStmt Name], thing), FreeVars)
 \end{code}
 
index 7bd1e6c..378a012 100644 (file)
@@ -1,35 +1,28 @@
 \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
-
 module TcExpr where
-import HsSyn   ( HsExpr, LHsExpr )
-import Name    ( Name )
-import TcType  ( TcType, TcRhoType, TcSigmaType )
+import HsSyn    ( HsExpr, LHsExpr )
+import Name     ( Name )
+import TcType   ( TcType, TcRhoType, TcSigmaType )
 import TcRnTypes( TcM, TcId, CtOrigin )
 
 tcPolyExpr :: 
-         LHsExpr Name
+          LHsExpr Name
        -> TcSigmaType
        -> TcM (LHsExpr TcId)
 
 tcMonoExpr, tcMonoExprNC :: 
-         LHsExpr Name
+          LHsExpr Name
        -> TcRhoType
        -> TcM (LHsExpr TcId)
 
 tcInferRho, tcInferRhoNC :: 
-         LHsExpr Name
+          LHsExpr Name
        -> TcM (LHsExpr TcId, TcRhoType)
 
 tcSyntaxOp :: CtOrigin
-                  -> HsExpr Name
-                  -> TcType
-                  -> TcM (HsExpr TcId)
+           -> HsExpr Name
+           -> TcType
+           -> TcM (HsExpr TcId)
 
 tcCheckId :: Name -> TcRhoType -> TcM (HsExpr TcId)
 \end{code}
index f898f3d..8c421da 100644 (file)
@@ -1,24 +1,17 @@
 \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
-
 module TcMatches where
-import HsSyn   ( GRHSs, MatchGroup )
+import HsSyn    ( GRHSs, MatchGroup )
 import TcEvidence( HsWrapper )
-import Name    ( Name )
-import TcType  ( TcRhoType )
+import Name     ( Name )
+import TcType   ( TcRhoType )
 import TcRnTypes( TcM, TcId )
 
 tcGRHSsPat    :: GRHSs Name
-             -> TcRhoType
-             -> TcM (GRHSs TcId)
+              -> TcRhoType
+              -> TcM (GRHSs TcId)
 
 tcMatchesFun :: Name -> Bool
-            -> MatchGroup Name
-            -> TcRhoType
-            -> TcM (HsWrapper, MatchGroup TcId)
+             -> MatchGroup Name
+             -> TcRhoType
+             -> TcM (HsWrapper, MatchGroup TcId)
 \end{code}
index 5cb871a..18a31b0 100644 (file)
@@ -1,32 +1,25 @@
 \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
-
 module TcSplice where
-import HsSyn   ( HsSplice, HsBracket, HsQuasiQuote,
+import HsSyn    ( HsSplice, HsBracket, HsQuasiQuote,
                   HsExpr, HsType, LHsType, LHsExpr, LPat, LHsDecl )
-import Name    ( Name )
-import NameSet ( FreeVars )
-import RdrName ( RdrName )
+import Name     ( Name )
+import NameSet  ( FreeVars )
+import RdrName  ( RdrName )
 import TcRnTypes( TcM, TcId )
-import TcType  ( TcRhoType, TcKind )
+import TcType   ( TcRhoType, TcKind )
 import Annotations ( Annotation, CoreAnnTarget )
 import qualified Language.Haskell.TH as TH
 
 tcSpliceExpr :: HsSplice Name
-            -> TcRhoType
-            -> TcM (HsExpr TcId)
+             -> TcRhoType
+             -> TcM (HsExpr TcId)
 
 kcSpliceType :: HsSplice Name -> FreeVars
-            -> TcM (HsType Name, TcKind)
+             -> TcM (HsType Name, TcKind)
 
 tcBracket :: HsBracket Name 
-         -> TcRhoType
-         -> TcM (LHsExpr TcId)
+          -> TcRhoType
+          -> TcM (LHsExpr TcId)
 
 tcSpliceDecls :: LHsExpr Name -> TcM [LHsDecl RdrName]
 
index f53b658..4d07229 100644 (file)
@@ -1,11 +1,4 @@
 \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
-
 module TcUnify where
 import TcType     ( TcTauType, TcKind, Type, Kind )
 import VarEnv     ( TidyEnv )
index dcf41dd..d8ddff3 100644 (file)
@@ -1,11 +1,4 @@
 \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
-
 module TyCon where
 
 import Name (Name)
@@ -13,9 +6,9 @@ import Unique (Unique)
 
 data TyCon
 
-tyConName          :: TyCon -> Name
-tyConUnique        :: TyCon -> Unique
-isTupleTyCon       :: TyCon -> Bool
+tyConName           :: TyCon -> Name
+tyConUnique         :: TyCon -> Unique
+isTupleTyCon        :: TyCon -> Bool
 isUnboxedTupleTyCon :: TyCon -> Bool
-isFunTyCon         :: TyCon -> Bool
+isFunTyCon          :: TyCon -> Bool
 \end{code}