Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
48b467f0
Commit
48b467f0
authored
Mar 23, 2012
by
dterei
Browse files
Tabs -> Spaces
parent
48b0aa61
Changes
5
Expand all
Hide whitespace changes
Inline
Side-by-side
compiler/main/Annotations.lhs
View file @
48b467f0
...
...
@@ -4,13 +4,6 @@
%
\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 (
-- * Main Annotation data types
Annotation(..),
...
...
@@ -40,14 +33,14 @@ import Data.Word ( Word8 )
data Annotation = Annotation {
ann_target :: CoreAnnTarget, -- ^ The target of the annotation
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
}
-- | An annotation target
data AnnTarget 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
-- | The kind of annotation target found in the middle end of the compiler
...
...
utils/genprimopcode/Main.hs
View file @
48b467f0
This diff is collapsed.
Click to expand it.
utils/genprimopcode/Parser.y
View file @
48b467f0
{
{-# LANGUAGE BangPatterns #-} -- required for versions of Happy before 1.18.6
{-# OPTIONS -w -Wwarn #-}
...
...
utils/genprimopcode/ParserM.hs
View file @
48b467f0
module
ParserM
(
-- Parser Monad
ParserM
(
..
),
AlexInput
,
run_parser
,
...
...
utils/genprimopcode/Syntax.hs
View file @
48b467f0
{-# 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
import
Data.List
...
...
@@ -25,17 +17,17 @@ data Entry
name
::
String
,
-- name in prog text
ty
::
Ty
,
-- type
cat
::
Category
,
-- category
desc
::
String
,
-- description
desc
::
String
,
-- description
opts
::
[
Option
]
}
-- default overrides
|
PseudoOpSpec
{
name
::
String
,
-- name in prog text
ty
::
Ty
,
-- type
desc
::
String
,
-- description
desc
::
String
,
-- description
opts
::
[
Option
]
}
-- default overrides
|
PrimTypeSpec
{
ty
::
Ty
,
-- name in prog text
desc
::
String
,
-- description
desc
::
String
,
-- description
opts
::
[
Option
]
}
-- default overrides
|
Section
{
title
::
String
,
-- section title
desc
::
String
}
-- description
|
Section
{
title
::
String
,
-- section title
desc
::
String
}
-- description
deriving
Show
is_primop
::
Entry
->
Bool
...
...
@@ -89,7 +81,7 @@ myseqAll [] x = x
sanityTop
::
Info
->
()
sanityTop
(
Info
defs
entries
)
=
let
opt_names
=
map
get_attrib_name
defs
primops
=
filter
is_primop
entries
primops
=
filter
is_primop
entries
in
if
length
opt_names
/=
length
(
nub
opt_names
)
then
error
(
"non-unique default attribute names: "
++
show
opt_names
++
"
\n
"
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment