Commit 1df19864 authored by Ian Lynagh's avatar Ian Lynagh

Use -fwarn-tabs when validating

We only use it for "compiler" sources, i.e. not for libraries.
Many modules have a -fno-warn-tabs kludge for now.
parent ed26b477
...@@ -2,6 +2,13 @@ ...@@ -2,6 +2,13 @@
-- (c) The University of Glasgow -- (c) The University of Glasgow
-- --
{-# 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 Avail ( module Avail (
Avails, Avails,
AvailInfo(..), AvailInfo(..),
......
...@@ -16,6 +16,13 @@ types that ...@@ -16,6 +16,13 @@ types that
\begin{code} \begin{code}
{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveDataTypeable #-}
{-# 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 BasicTypes( module BasicTypes(
Version, bumpVersion, initialVersion, Version, bumpVersion, initialVersion,
......
...@@ -5,6 +5,13 @@ ...@@ -5,6 +5,13 @@
\section[DataCon]{@DataCon@: Data Constructors} \section[DataCon]{@DataCon@: Data Constructors}
\begin{code} \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 DataCon ( module DataCon (
-- * Main data types -- * Main data types
DataCon, DataConIds(..), DataCon, DataConIds(..),
......
...@@ -5,6 +5,13 @@ ...@@ -5,6 +5,13 @@
\section[Demand]{@Demand@: the amount of demand on a value} \section[Demand]{@Demand@: the amount of demand on a value}
\begin{code} \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 Demand( module Demand(
Demand(..), Demand(..),
topDmd, lazyDmd, seqDmd, evalDmd, errDmd, isStrictDmd, topDmd, lazyDmd, seqDmd, evalDmd, errDmd, isStrictDmd,
......
...@@ -21,6 +21,14 @@ ...@@ -21,6 +21,14 @@
-- be global or local, see "Var#globalvslocal" -- be global or local, see "Var#globalvslocal"
-- --
-- * 'Var.Var': see "Var#name_types" -- * 'Var.Var': see "Var#name_types"
{-# 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 Id ( module Id (
-- * The main types -- * The main types
Var, Id, isId, Var, Id, isId,
......
...@@ -8,6 +8,13 @@ ...@@ -8,6 +8,13 @@
Haskell. [WDP 94/11]) Haskell. [WDP 94/11])
\begin{code} \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 IdInfo ( module IdInfo (
-- * The IdDetails type -- * The IdDetails type
IdDetails(..), pprIdDetails, coVarDetails, IdDetails(..), pprIdDetails, coVarDetails,
......
...@@ -7,6 +7,13 @@ ...@@ -7,6 +7,13 @@
\begin{code} \begin{code}
{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveDataTypeable #-}
{-# 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 Literal module Literal
( (
-- * Main data type -- * Main data type
......
...@@ -12,6 +12,13 @@ have a standard form, namely: ...@@ -12,6 +12,13 @@ have a standard form, namely:
- primitive operations - primitive operations
\begin{code} \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 MkId ( module MkId (
mkDictFunId, mkDictFunTy, mkDictSelId, mkDictFunId, mkDictFunTy, mkDictSelId,
......
...@@ -9,6 +9,13 @@ These are Uniquable, hence we can build Maps with Modules as ...@@ -9,6 +9,13 @@ These are Uniquable, hence we can build Maps with Modules as
the keys. the keys.
\begin{code} \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 Module module Module
( (
-- * The ModuleName type -- * The ModuleName type
......
...@@ -31,6 +31,13 @@ ...@@ -31,6 +31,13 @@
-- * Internal, if they name things in the module being compiled. Some internal -- * Internal, if they name things in the module being compiled. Some internal
-- Names are system names, if they are names manufactured by the compiler -- Names are system names, if they are names manufactured by the compiler
{-# 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 Name ( module Name (
-- * The main types -- * The main types
Name, -- Abstract Name, -- Abstract
......
...@@ -5,6 +5,13 @@ ...@@ -5,6 +5,13 @@
\section[NameEnv]{@NameEnv@: name environments} \section[NameEnv]{@NameEnv@: name environments}
\begin{code} \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 NameEnv ( module NameEnv (
-- * Var, Id and TyVar environments (maps) -- * Var, Id and TyVar environments (maps)
NameEnv, NameEnv,
......
...@@ -4,6 +4,13 @@ ...@@ -4,6 +4,13 @@
% %
\begin{code} \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 NameSet ( module NameSet (
-- * Names set type -- * Names set type
NameSet, NameSet,
......
...@@ -19,6 +19,14 @@ ...@@ -19,6 +19,14 @@
-- * 'Id.Id': see "Id#name_types" -- * 'Id.Id': see "Id#name_types"
-- --
-- * 'Var.Var': see "Var#name_types" -- * 'Var.Var': see "Var#name_types"
{-# 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 OccName ( module OccName (
-- * The 'NameSpace' type -- * The 'NameSpace' type
NameSpace, -- Abstract NameSpace, -- Abstract
......
...@@ -22,6 +22,14 @@ ...@@ -22,6 +22,14 @@
-- * 'Id.Id': see "Id#name_types" -- * 'Id.Id': see "Id#name_types"
-- --
-- * 'Var.Var': see "Var#name_types" -- * 'Var.Var': see "Var#name_types"
{-# 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 RdrName ( module RdrName (
-- * The main type -- * The main type
RdrName(..), -- Constructors exported only to BinIface RdrName(..), -- Constructors exported only to BinIface
......
...@@ -8,6 +8,13 @@ ...@@ -8,6 +8,13 @@
-- When the earliest compiler we want to boostrap with is -- When the earliest compiler we want to boostrap with is
-- GHC 7.2, we can make RealSrcLoc properly abstract -- GHC 7.2, we can make RealSrcLoc properly abstract
{-# 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
-- | This module contains types that relate to the positions of things -- | This module contains types that relate to the positions of things
-- in source files, and allow tagging of those things with locations -- in source files, and allow tagging of those things with locations
......
...@@ -17,6 +17,14 @@ Haskell). ...@@ -17,6 +17,14 @@ Haskell).
\begin{code} \begin{code}
{-# LANGUAGE BangPatterns #-} {-# LANGUAGE BangPatterns #-}
{-# 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 Unique ( module Unique (
-- * Main data types -- * Main data types
Unique, Uniquable(..), Unique, Uniquable(..),
......
...@@ -5,6 +5,13 @@ ...@@ -5,6 +5,13 @@
\section{@Vars@: Variables} \section{@Vars@: Variables}
\begin{code} \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
-- | -- |
-- #name_types# -- #name_types#
-- GHC uses several kinds of name internally: -- GHC uses several kinds of name internally:
......
...@@ -4,6 +4,13 @@ ...@@ -4,6 +4,13 @@
% %
\begin{code} \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 VarEnv ( module VarEnv (
-- * Var, Id and TyVar environments (maps) -- * Var, Id and TyVar environments (maps)
VarEnv, IdEnv, TyVarEnv, CoVarEnv, VarEnv, IdEnv, TyVarEnv, CoVarEnv,
......
...@@ -4,6 +4,13 @@ ...@@ -4,6 +4,13 @@
% %
\begin{code} \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 VarSet ( module VarSet (
-- * Var, Id and TyVar set types -- * Var, Id and TyVar set types
VarSet, IdSet, TyVarSet, CoVarSet, VarSet, IdSet, TyVarSet, CoVarSet,
......
...@@ -6,6 +6,13 @@ ...@@ -6,6 +6,13 @@
-- places in generated code (stack frame liveness masks, function -- places in generated code (stack frame liveness masks, function
-- argument liveness masks, SRT bitmaps). -- argument liveness masks, SRT bitmaps).
{-# 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 Bitmap ( module Bitmap (
Bitmap, mkBitmap, Bitmap, mkBitmap,
intsToBitmap, intsToReverseBitmap, intsToBitmap, intsToReverseBitmap,
......
...@@ -2,6 +2,13 @@ ...@@ -2,6 +2,13 @@
{-# LANGUAGE GADTs #-} {-# LANGUAGE GADTs #-}
{-# OPTIONS_GHC -fno-warn-warnings-deprecations #-} {-# OPTIONS_GHC -fno-warn-warnings-deprecations #-}
{-# 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_GHC -fno-warn-incomplete-patterns #-} {-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
#if __GLASGOW_HASKELL__ >= 703 #if __GLASGOW_HASKELL__ >= 703
-- GHC 7.0.1 improved incomplete pattern warnings with GADTs -- GHC 7.0.1 improved incomplete pattern warnings with GADTs
......
{-# OPTIONS_GHC -XGADTs -XNoMonoLocalBinds #-} {-# OPTIONS_GHC -XGADTs -XNoMonoLocalBinds #-}
{-# 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
-- Norman likes local bindings -- Norman likes local bindings
-- If this module lives on I'd like to get rid of this flag in due course -- If this module lives on I'd like to get rid of this flag in due course
......
{-# 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 CmmCallConv ( module CmmCallConv (
ParamLocation(..), ParamLocation(..),
assignArgumentsPos assignArgumentsPos
......
{-# 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 CmmExpr module CmmExpr
( CmmExpr(..), cmmExprType, cmmExprWidth, maybeInvertCmmExpr ( CmmExpr(..), cmmExprType, cmmExprWidth, maybeInvertCmmExpr
, CmmReg(..), cmmRegType , CmmReg(..), cmmRegType
......
{-# 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 CmmInfo ( module CmmInfo (
mkEmptyContInfoTable, mkEmptyContInfoTable,
cmmToRawCmm, cmmToRawCmm,
......
...@@ -12,6 +12,13 @@ ...@@ -12,6 +12,13 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
{-# 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 CmmLint ( module CmmLint (
cmmLint, cmmLintTop cmmLint, cmmLintTop
) where ) where
......
-- CmmNode type for representation using Hoopl graphs. -- CmmNode type for representation using Hoopl graphs.
{-# LANGUAGE GADTs #-} {-# LANGUAGE GADTs #-}
{-# 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_GHC -fno-warn-incomplete-patterns #-} {-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
#if __GLASGOW_HASKELL__ >= 703 #if __GLASGOW_HASKELL__ >= 703