Commit 48b467f0 authored by dterei's avatar dterei
Browse files

Tabs -> Spaces

parent 48b0aa61
...@@ -4,13 +4,6 @@ ...@@ -4,13 +4,6 @@
% %
\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 Annotations ( module Annotations (
-- * Main Annotation data types -- * Main Annotation data types
Annotation(..), Annotation(..),
...@@ -40,14 +33,14 @@ import Data.Word ( Word8 ) ...@@ -40,14 +33,14 @@ import Data.Word ( Word8 )
data Annotation = Annotation { data Annotation = Annotation {
ann_target :: CoreAnnTarget, -- ^ The target of the annotation ann_target :: CoreAnnTarget, -- ^ The target of the annotation
ann_value :: Serialized -- ^ 'Serialized' version of the annotation that ann_value :: Serialized -- ^ 'Serialized' version of the annotation that
-- allows recovery of its value or can -- allows recovery of its value or can
-- be persisted to an interface file -- be persisted to an interface file
} }
-- | An annotation target -- | An annotation target
data AnnTarget name data AnnTarget name
= NamedTarget name -- ^ We are annotating something with a name: = NamedTarget name -- ^ We are annotating something with a name:
-- a type or identifier -- a type or identifier
| ModuleTarget Module -- ^ We are annotating a particular module | ModuleTarget Module -- ^ We are annotating a particular module
-- | The kind of annotation target found in the middle end of the compiler -- | The kind of annotation target found in the middle end of the compiler
......
This diff is collapsed.
{ {
{-# LANGUAGE BangPatterns #-} -- required for versions of Happy before 1.18.6 {-# LANGUAGE BangPatterns #-} -- required for versions of Happy before 1.18.6
{-# OPTIONS -w -Wwarn #-} {-# OPTIONS -w -Wwarn #-}
......
module ParserM ( module ParserM (
-- Parser Monad -- Parser Monad
ParserM(..), AlexInput, run_parser, ParserM(..), AlexInput, run_parser,
......
{-# 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 Syntax where module Syntax where
import Data.List import Data.List
...@@ -25,17 +17,17 @@ data Entry ...@@ -25,17 +17,17 @@ data Entry
name :: String, -- name in prog text name :: String, -- name in prog text
ty :: Ty, -- type ty :: Ty, -- type
cat :: Category, -- category cat :: Category, -- category
desc :: String, -- description desc :: String, -- description
opts :: [Option] } -- default overrides opts :: [Option] } -- default overrides
| PseudoOpSpec { name :: String, -- name in prog text | PseudoOpSpec { name :: String, -- name in prog text
ty :: Ty, -- type ty :: Ty, -- type
desc :: String, -- description desc :: String, -- description
opts :: [Option] } -- default overrides opts :: [Option] } -- default overrides
| PrimTypeSpec { ty :: Ty, -- name in prog text | PrimTypeSpec { ty :: Ty, -- name in prog text
desc :: String, -- description desc :: String, -- description
opts :: [Option] } -- default overrides opts :: [Option] } -- default overrides
| Section { title :: String, -- section title | Section { title :: String, -- section title
desc :: String } -- description desc :: String } -- description
deriving Show deriving Show
is_primop :: Entry -> Bool is_primop :: Entry -> Bool
...@@ -89,7 +81,7 @@ myseqAll [] x = x ...@@ -89,7 +81,7 @@ myseqAll [] x = x
sanityTop :: Info -> () sanityTop :: Info -> ()
sanityTop (Info defs entries) sanityTop (Info defs entries)
= let opt_names = map get_attrib_name defs = let opt_names = map get_attrib_name defs
primops = filter is_primop entries primops = filter is_primop entries
in in
if length opt_names /= length (nub opt_names) if length opt_names /= length (nub opt_names)
then error ("non-unique default attribute names: " ++ show opt_names ++ "\n") then error ("non-unique default attribute names: " ++ show opt_names ++ "\n")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment