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
f0aa996d
Commit
f0aa996d
authored
Aug 08, 2007
by
Magnus Jonsson
Browse files
Removed a dependency on Cabal that caused a build failure when Cabal changed
parent
67b34437
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main/HeaderInfo.hs
View file @
f0aa996d
...
...
@@ -33,10 +33,6 @@ import Panic
import
Maybes
import
Bag
(
emptyBag
,
listToBag
)
import
Distribution.Compiler
import
Distribution.Package
import
Distribution.Version
import
Control.Exception
import
Control.Monad
import
System.Exit
...
...
@@ -177,31 +173,15 @@ getOptions' buf filename
POk
state'
t
->
(
buffer
state
,
t
)
:
lexAll
state'
_
->
[(
buffer
state
,
L
(
last_loc
state
)
ITeof
)]
thisCompiler
::
Compiler
thisCompiler
=
Compiler
{
compilerFlavor
=
GHC
,
compilerId
=
PackageIdentifier
{
pkgName
=
"ghc"
,
pkgVersion
=
v
},
compilerProg
=
panic
"No compiler program yet"
,
compilerPkgTool
=
panic
"No package program yet"
,
compilerLanguagesKnown
=
True
,
compilerLanguages
=
supportedLanguages
}
where
v
=
case
readVersion
cProjectVersion
of
Just
version
->
version
Nothing
->
panic
(
"Can't parse version: "
++
show
cProjectVersion
)
checkExtension
::
Located
FastString
->
Located
String
checkExtension
(
L
l
ext
)
=
case
reads
(
unpackFS
ext
)
of
[]
->
languagePragParseError
l
(
okExt
,
""
)
:
_
->
case
extensionsToFlags
thisCompiler
[
okExt
]
of
(
[]
,[
opt
])
->
L
l
opt
_
->
unsupportedExtnError
l
okExt
-- Checks if a given extension is valid, and if so returns
-- its corresponding flag. Otherwise it throws an exception.
=
let
ext'
=
unpackFS
ext
in
if
ext'
`
elem
`
supportedLanguages
||
ext'
`
elem
`
(
map
(
"No"
++
)
supportedLanguages
)
then
L
l
(
"-X"
++
ext'
)
else
unsupportedExtnError
l
ext'
languagePragParseError
loc
=
pgmError
(
showSDoc
(
mkLocMessage
loc
(
...
...
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