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
59250f18
Commit
59250f18
authored
Jul 15, 2010
by
Ian Lynagh
Browse files
Simplify some more CPP __GLASGOW_HASKELL__ tests
parent
1d9983e8
Changes
1
Hide whitespace changes
Inline
Side-by-side
utils/ghc-pkg/Main.hs
View file @
59250f18
...
...
@@ -1532,7 +1532,7 @@ installSignalHandlers = do
_
<-
installHandler
sigQUIT
(
Catch
interrupt
)
Nothing
_
<-
installHandler
sigINT
(
Catch
interrupt
)
Nothing
return
()
#
el
if
__GLASGOW_HASKELL__
>=
603
#
el
se
-- GHC 6.3+ has support for console events on Windows
-- NOTE: running GHCi under a bash shell for some reason requires
-- you to press Ctrl-Break rather than Ctrl-C to provoke
...
...
@@ -1544,13 +1544,6 @@ installSignalHandlers = do
_
<-
installHandler
(
Catch
sig_handler
)
return
()
#
else
return
()
-- nothing
#
endif
#
if
__GLASGOW_HASKELL__
<=
604
isInfixOf
::
(
Eq
a
)
=>
[
a
]
->
[
a
]
->
Bool
isInfixOf
needle
haystack
=
any
(
isPrefixOf
needle
)
(
tails
haystack
)
#
endif
#
if
mingw32_HOST_OS
||
mingw32_TARGET_OS
...
...
@@ -1644,9 +1637,7 @@ openNewFile dir template = do
oflags
=
rw_flags
.|.
o_EXCL
#
if
__GLASGOW_HASKELL__
<
611
withFilePath
=
withCString
#
endif
findTempName
x
=
do
fd
<-
withFilePath
filepath
$
\
f
->
...
...
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