Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
301ba995
Commit
301ba995
authored
Jun 18, 2001
by
simonpj
Browse files
[project @ 2001-06-18 08:56:09 by simonpj]
Fix Unix imports
parent
fe3bfd47
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/main/Main.hs
View file @
301ba995
{-# OPTIONS -fno-warn-incomplete-patterns #-}
-----------------------------------------------------------------------------
-- $Id: Main.hs,v 1.7
2
2001/06/1
5
08:
29:58
simonpj Exp $
-- $Id: Main.hs,v 1.7
3
2001/06/1
8
08:
56:09
simonpj Exp $
--
-- GHC Driver program
--
...
...
@@ -43,10 +43,8 @@ import DriverMkDepend ( beginMkDependHS, endMkDependHS )
import
DriverPhases
(
Phase
(
Hsc
,
HCc
),
haskellish_src_file
,
objish_file
)
import
DriverUtil
(
add
,
handle
,
handleDyn
,
later
,
splitFilename
,
unknownFlagErr
,
my_prefix_match
)
import
CmdLineOpts
(
dynFlag
,
DynFlags
(
verbosity
,
stgToDo
,
hscOutName
,
hscLang
,
coreToDo
),
HscLang
(
HscInterpreted
,
HscC
),
defaultDynFlags
,
restoreDynFlags
,
saveDynFlags
,
setDynFlags
,
import
CmdLineOpts
(
dynFlag
,
defaultDynFlags
,
restoreDynFlags
,
saveDynFlags
,
setDynFlags
,
DynFlags
(
..
),
HscLang
(
..
),
v_Static_hsc_opts
)
...
...
@@ -63,7 +61,8 @@ import Exception ( throwDyn, Exception(DynException) )
import
System
(
getArgs
,
exitWith
,
ExitCode
(
..
)
)
#
ifndef
mingw32_TARGET_OS
import
Concurrent
(
myThreadId
,
throwTo
)
import
Concurrent
(
myThreadId
)
import
Exception
(
throwTo
)
import
Posix
(
Handler
(
Catch
),
installHandler
,
sigINT
,
sigQUIT
)
import
Dynamic
(
toDyn
)
#
endif
...
...
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