2 years agorts: Usage message wibbles
Ben Gamari [Fri, 24 Feb 2017 00:04:40 +0000 (19:04 -0500)] 
rts: Usage message wibbles

2 years agoLoad `pthreads` by default on Windows
Tamar Christina [Thu, 23 Feb 2017 23:34:33 +0000 (18:34 -0500)] 
Load `pthreads` by default on Windows

The GCC Bindists that we use compile with `pthread` enabled by default.
This means that on every link the dll is passed as a dependency by the
driver. Lots of packages depend on it but the runtime linker doesn't
provide it by default making compiled code work but not interpreted.

Following D3028 `pthreads` would be provided by default ONLY when linked
dynamicly, which we don't support yet (See D2592). Until this is the
case we need to manually provide `libpthreads`.

Test Plan: ./validate

Reviewers: austin, hvr, bgamari

Reviewed By: bgamari

Subscribers: thomie, #ghc_windows_task_force

Differential Revision:

2 years agoMake list of deprecated symbols on Windows weak.
Tamar Christina [Thu, 23 Feb 2017 23:33:15 +0000 (18:33 -0500)] 
Make list of deprecated symbols on Windows weak.

We have a unfortunate workaround in place for the fact that most
packages out there use POSIX names for symbols even on Windows.  This
means that we have to recognize e.g. both `_ungetch` and `ungetch`.

The former is the actual symbol name on windows and the latter is the
POSIX variant. The problem is that on normal windows programs `ungetch`
should not be in the global namespace.

To work around this, we now mark the deprecated symbols as weak symbols
in the global namespace. This provides the flexibility we need:

* If you use the symbol without defining it, we assume you meant to use
  the POSIX variant.
* If you actually define the symbol, we'll hence forth use that
  definition and assume you didn't mean to use POSIX code. This is how
  MingW64's wrapper also works.

This requires D3028.

Fixes #13210.

Test Plan: ./validate

Reviewers: austin, bgamari, erikd, simonmar

Reviewed By: bgamari

Subscribers: thomie, #ghc_windows_task_force

Differential Revision:

2 years agoLoad dependent dlls.
Tamar Christina [Thu, 23 Feb 2017 23:32:28 +0000 (18:32 -0500)] 
Load dependent dlls.

When the `GCC` driver envokes the pipeline a `SPEC` is used to determine
how to configure the compiler and which libraries to pass along.

For Windows/mingw, this specfile is

This has a lot of interesting things that we need to emulate in order to
be able to link as many things out of the box as GCC. In particular this
is why you never need to specify `-lgcc_s` when compiling, but you do
when using `GHCi`.

Unfortunately due to time constraints I can't set up the framework
required in `GHC` to do this before the feature freeze.

So I suggest this alternate implementation:
When we load a dll, also bring it's dependencies into scope of the

This has pros and cons. Pro is, we'll fix many packages on hackage which
specify just `-lstdc++`. Since this points to `libstdc++-6.dll` which
will bring `libgcc` into scope.

The downside is, we'll be more lenient than GCC, in that the interpreter
will link much easier since it has implicit dependencies in scope.
Whereas for compilation to work you will have to specify it as an
argument to GHC.

This will make the Windows runtime linker more consistent with the unix
ones. The difference in semantics came about because of the differences
between `dlsym` and `GetProcAddress`.  The former seems to search the
given library and all it's dependencies, while the latter only searches
the export table of the library. So we need some extra manual work to
search the dependencies which this patch provides.

Test Plan:
$ echo :q | inplace/bin/ghc-stage2.exe --interactive +RTS -Dl -RTS
-lstdc++ 2>&1 | grep "Loading dependency"

$ echo :q | ../inplace/bin/ghc-stage2.exe --interactive -lstdc++ +RTS
-Dl -RTS 2>&1 | grep "Loading dependency"
Loading dependency *.exe -> GDI32.dll.
Loading dependency GDI32.dll -> ntdll.dll.
Loading dependency *.exe -> KERNEL32.dll.
Loading dependency KERNEL32.dll -> KERNELBASE.dll.
Loading dependency *.exe -> msvcrt.dll.
Loading dependency *.exe -> SHELL32.dll.
Loading dependency SHELL32.dll -> USER32.dll.
Loading dependency USER32.dll -> win32u.dll.
Loading dependency *.exe -> WINMM.dll.
Loading dependency WINMM.dll -> WINMMBASE.dll.
Loading dependency *.exe -> WSOCK32.dll.
Loading dependency WSOCK32.dll -> WS2_32.dll.
Loading dependency WS2_32.dll -> RPCRT4.dll.
Loading dependency libstdc++-6.dll -> libwinpthread-1.dll.
Loading dependency libstdc++-6.dll -> libgcc_s_seh-1.dll.

Trac tickets: #13093, #13189

Reviewers: simonmar, rwbarton, austin, bgamari, erikd

Reviewed By: bgamari

Subscribers: rwbarton, RyanGlScott, thomie, #ghc_windows_task_force

Differential Revision:

2 years agoBring in unicode variants of API Annotations for HsBracket
Alan Zimmerman [Sun, 26 Feb 2017 12:18:44 +0000 (14:18 +0200)] 
Bring in unicode variants of API Annotations for HsBracket

2 years agoRename compact to ghc-compact.
Edward Z. Yang [Thu, 23 Feb 2017 21:46:02 +0000 (13:46 -0800)] 
Rename compact to ghc-compact.

The plan is to release a separate library, 'compact', which gives a
friendly user-facing interface.  This library is just enough so that we
can make sure the functionality is working in GHC.

Signed-off-by: Edward Z. Yang <>
Test Plan: validate

Reviewers: bgamari, dfeuer, austin, simonmar, hvr

Subscribers: thomie, erikd, snowleopard

Differential Revision:

2 years agoCorrectly pretty print a wild card in infix position
Alan Zimmerman [Sat, 25 Feb 2017 13:42:40 +0000 (15:42 +0200)] 
Correctly pretty print a wild card in infix position

2 years agoDelete redundant import.
Edward Z. Yang [Sat, 25 Feb 2017 02:47:47 +0000 (18:47 -0800)] 
Delete redundant import.

Signed-off-by: Edward Z. Yang <>
2 years agoFix validate.
Edward Z. Yang [Sat, 25 Feb 2017 02:06:58 +0000 (18:06 -0800)] 
Fix validate.

Signed-off-by: Edward Z. Yang <>
2 years agoRecord full FieldLabel in ifConFields.
Edward Z. Yang [Thu, 23 Feb 2017 04:32:41 +0000 (20:32 -0800)] 
Record full FieldLabel in ifConFields.

The previous implementation tried to be "efficient" by
storing field names once in IfaceConDecls, and only just
enough information for us to reconstruct the FieldLabel.
But this came at a bit of code complexity cost.

This patch undos the optimization, instead storing a full
FieldLabel at each data constructor.  Consequently, this fixes
bugs #12699 and #13250.

Signed-off-by: Edward Z. Yang <>
Test Plan: validate

Reviewers: adamgundry, bgamari, austin

Subscribers: thomie

Differential Revision:

2 years agoDocument AMP as a Report deviation
David Feuer [Fri, 24 Feb 2017 18:45:00 +0000 (13:45 -0500)] 
Document AMP as a Report deviation

`Applicative` as a superclass of `Monad` is non-standard.

Fixes #13196.

[skip ci]

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agoAdd a comment explaining CompleteMatchSig in HsBinds
Matthew Pickering [Fri, 24 Feb 2017 17:37:19 +0000 (17:37 +0000)] 
Add a comment explaining CompleteMatchSig in HsBinds

[skip ci]

2 years agoMake SCCFunSig tag Located for ghc-exactprint
Alan Zimmerman [Fri, 24 Feb 2017 16:57:51 +0000 (18:57 +0200)] 
Make SCCFunSig tag Located for ghc-exactprint

2 years agoAdd API Annotation AnnSignature for backpack signature modules
Alan Zimmerman [Fri, 24 Feb 2017 11:00:28 +0000 (13:00 +0200)] 
Add API Annotation AnnSignature for backpack signature modules

2 years agoMake exprIsConApp_maybe work better for literals strings
Simon Peyton Jones [Thu, 23 Feb 2017 14:41:08 +0000 (14:41 +0000)] 
Make exprIsConApp_maybe work better for literals strings

There are two things here

* Use exprIsLiteral_maybe to "look through" a variable bound
  to a literal string.

* Add CONLIKE to the NOINLINE pragma for unpackCString# and

See Trac #13317, Trac #10844, and
Note [exprIsConApp_maybe on literal strings] in CoreSubst

I did a nofib run and got essentially zero change except for one
2.2% improvement in allocation for 'pretty'.

2 years agoAdd instances for (:~~:) mirroring those for (:~:)
Ryan Scott [Thu, 23 Feb 2017 23:09:58 +0000 (18:09 -0500)] 
Add instances for (:~~:) mirroring those for (:~:)

`(:~~:)`, the hetergeneous version of `(:~:)`, should have class
instances similar to those of `(:~:)`, especially since their
implementations aren't particularly tricky or surprising. This adds

Reviewers: bgamari, austin, hvr, goldfire

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agoCorrect Windows libdir assumptions.
Tamar Christina [Thu, 23 Feb 2017 23:07:19 +0000 (18:07 -0500)] 
Correct Windows libdir assumptions.

GHC and ghc-pkg make some pretty hard assumptions about where they're
running on Windows. They assume that they are always running from
`foo/bin/ghc.exe` and that to find the `lib` folder they can drop
`bin/ghc.exe` from the base path and append `lib`.

This is already false for the testsuite, which when testing thenbindist
 has one test which puts the binaries in `inplace/test   spaces`.

For some reason before this was either being skipped or mysteriously
But as of `2017.02.11` our luck ran out.

the testsuite triggers a failure such as those in #13310

Let's soften the assumption and just check that `../lib` exists instead.

80 chars

Test Plan: ./validate

Reviewers: austin, erikd, bgamari

Reviewed By: bgamari

Subscribers: thomie, #ghc_windows_task_force

Differential Revision:

2 years agoFix parsing of And chains in BoolFormula
Dmitry Ivanov [Thu, 23 Feb 2017 23:02:23 +0000 (18:02 -0500)] 
Fix parsing of And chains in BoolFormula

Parse `foo, bar, baz` into `And [foo, bar, baz]`
instead of `And [foo, And [bar, baz]]`.

Fixes #11024.

Test Plan: read and think

Reviewers: austin, bgamari, mpickering

Reviewed By: bgamari, mpickering

Subscribers: ezyang, thomie, alanz

Differential Revision:

2 years agoInclude OverloadedRecordFields selectors in NameShape.
Edward Z. Yang [Thu, 23 Feb 2017 05:59:59 +0000 (21:59 -0800)] 
Include OverloadedRecordFields selectors in NameShape.

Fixes #13323.

Signed-off-by: Edward Z. Yang <>
Test Plan: validate

Reviewers: bgamari, austin

Subscribers: thomie

Differential Revision:

2 years agoMore tracing in SpecConstr
Simon Peyton Jones [Thu, 23 Feb 2017 18:59:21 +0000 (13:59 -0500)] 
More tracing in SpecConstr

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agoUse half as much memory when reading interfaces
Reid Barton [Thu, 23 Feb 2017 18:54:36 +0000 (13:54 -0500)] 
Use half as much memory when reading interfaces

I don't see any reason for the (filesize*2), and experimentally
allocations do go down slightly after this change.

Test Plan: validate

Reviewers: simonmar, austin, bgamari, trofi

Reviewed By: bgamari, trofi

Subscribers: trofi, thomie

Differential Revision:

2 years agoghci users guide: mention "~" expansion in :add
Chris Martin [Thu, 23 Feb 2017 18:52:51 +0000 (13:52 -0500)] 
ghci users guide: mention "~" expansion in :add

I discovered this feature via Stack Overflow.

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agobase: Add handling of -- to getArgs for Windows
Andreas Klebinger [Thu, 23 Feb 2017 18:46:15 +0000 (13:46 -0500)] 
base: Add handling of -- to getArgs for Windows

getArgs didn't match the treatmeant of -- in the RTS leading to
inconsistencies between behavior on Windows and other platforms. See #13287.

Reviewers: austin, hvr, bgamari, erikd, simonmar, rwbarton

Reviewed By: bgamari, rwbarton

Subscribers: rwbarton, thomie

Differential Revision:

2 years agorts: Correct the nursery size in the gen 1 growth computation
John C. Carey [Thu, 23 Feb 2017 18:45:22 +0000 (13:45 -0500)] 
rts: Correct the nursery size in the gen 1 growth computation

Fixes trac issue #13288.

Reviewers: austin, bgamari, erikd, simonmar

Reviewed By: simonmar

Subscribers: mutjida, rwbarton, thomie

Differential Revision:

2 years agotestsuite: Remove old python version tests
Reid Barton [Thu, 23 Feb 2017 18:44:17 +0000 (13:44 -0500)] 
testsuite: Remove old python version tests

Test Plan: harbormaster

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agoSet $1_$2_SplitSections in not
Reid Barton [Thu, 23 Feb 2017 18:41:55 +0000 (13:41 -0500)] 
Set $1_$2_SplitSections in not

After commit a50082c11 we use -ffunction-sections -fdata-sections
for all C compilations, when $1_$2_SplitSections is set. But that
variable was set in which is not run for the RTS.
As a result the RTS was not being split, leading to larger binaries.

This commit fixes RTS splitting by moving the definition of
$1_$2_SplitSections to, which is run for the RTS
(and also from

Test Plan:
manual ./validate and check that RTS and base .c files
are split, but not object files in the compiler

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie, snowleopard, olsner

Differential Revision:

2 years agoJSON profiler reports
Ben Gamari [Thu, 23 Feb 2017 18:22:48 +0000 (13:22 -0500)] 
JSON profiler reports

This introduces a JSON output format for cost-centre profiler reports.
It's not clear whether this is really something we want to introduce
given that we may also move to a more Haskell-driven output pipeline in
the future, but I nevertheless found this helpful, so I thought I would
put it up.

Test Plan: Compile a program with `-prof -fprof-auto`; run with `+RTS

Reviewers: austin, erikd, simonmar

Reviewed By: simonmar

Subscribers: duncan, maoe, thomie, simonmar

Differential Revision:

2 years agoHave --backpack complain if multiple files are passed.
Edward Z. Yang [Thu, 23 Feb 2017 03:59:55 +0000 (19:59 -0800)] 
Have --backpack complain if multiple files are passed.

At the moment it silently swallows the actual arguments; not good!

Signed-off-by: Edward Z. Yang <>
Test Plan: validate

Reviewers: rwbarton, bgamari, austin

Subscribers: thomie

Differential Revision:

2 years agoGive better error message with you run ghc foo.bkp
Edward Z. Yang [Thu, 23 Feb 2017 03:54:40 +0000 (19:54 -0800)] 
Give better error message with you run ghc foo.bkp

Detect Backpackish suffixes, and bail out if we try
to run them in the pipeline.

Signed-off-by: Edward Z. Yang <>
Test Plan: validate

Reviewers: rwbarton, bgamari, austin

Subscribers: thomie

Differential Revision:

2 years agotestsuite: Bump a performance tests
Ben Gamari [Thu, 23 Feb 2017 16:25:57 +0000 (11:25 -0500)] 
testsuite: Bump a performance tests

T5321Fun, T3064, and T12707 are failing, but only on Darwin. I suspect this is
probably creep from Typeable and pushed over the edge by some of Simon's recent
commits. Unfortunately the tree brokenness due to the recent submodule bumps
makes it difficult to pin down.

2 years agoSpelling only [ci skip]
Gabor Greif [Thu, 23 Feb 2017 16:01:07 +0000 (17:01 +0100)] 
Spelling only [ci skip]

2 years agoExport commentToAnnotation from Lexer.x
Alan Zimmerman [Thu, 23 Feb 2017 11:16:51 +0000 (13:16 +0200)] 
Export commentToAnnotation from Lexer.x

2 years agoDrop NFData constraint from compact.
Edward Z. Yang [Tue, 21 Feb 2017 05:50:41 +0000 (21:50 -0800)] 
Drop NFData constraint from compact.

It's both unsound (easy to write a bogus NFData instance) and
incomplete (you might want to serialize data that doesn't have
an NFData instance, and will be fine at runtime.)  So better
just to drop it.  (By the way, we used to need the NFData
instance to "pre-evaluate" the data before we copied it into
the region, but since Simon Marlow rewrote the code to directly
evaluate and copy, this is no longer necessary.)

Signed-off-by: Edward Z. Yang <>
Test Plan: validate

Reviewers: simonmar, austin, dfeuer, bgamari

Subscribers: thomie

Differential Revision:

2 years agoChangelog notice for compact.
Edward Z. Yang [Tue, 21 Feb 2017 00:25:00 +0000 (16:25 -0800)] 
Changelog notice for compact.

Test Plan: none

Reviewers: bgamari, austin

Subscribers: thomie

Differential Revision:

2 years agoRevert recent submodule bumps
Ben Gamari [Wed, 22 Feb 2017 16:35:30 +0000 (11:35 -0500)] 
Revert recent submodule bumps

They broke everything and the solution will be non-trivial.

This reverts commit 8ccbc2e5252abd4fa67d155d4fff489ee9929906.
This reverts commit c8d995db5d743358b0583fe97f8113bf9047641e.
This reverts commit 7153370288e6075c4f8c996ff02227e48805da06.

2 years agoBump time submodule
Ben Gamari [Tue, 21 Feb 2017 15:36:56 +0000 (10:36 -0500)] 
Bump time submodule

My previous attempt at bumping `time` was confused by a non-fast-forward
update from upstream. Here we merge the orphaned commit back into
master, fixing mirroring.

Also, we will now follow upstream's `ghc` branch instead of `master` to
prevent this sort of thing happening again in the future.

2 years agoA much nicer solution for typechecking ApplicativeDo
Simon Peyton Jones [Wed, 22 Feb 2017 13:45:52 +0000 (13:45 +0000)] 
A much nicer solution for typechecking ApplicativeDo

This patch improves the code for TcMatches.tcApplicativeStmts;
see the suggestion in Trac #13242 comment:9.

I now use (mapM goArg args) rather than a CPS-style fold.  The
result is less code, easier to understand, and automatically
fixes the original problem in Trac #13242.

See Note [ApplicativeDo and constraints].

2 years agoTest Trac #13244
Simon Peyton Jones [Wed, 22 Feb 2017 11:19:49 +0000 (11:19 +0000)] 
Test Trac #13244

2 years agoFix ApplicativeDo constraint scoping
Simon Peyton Jones [Wed, 22 Feb 2017 11:17:44 +0000 (11:17 +0000)] 
Fix ApplicativeDo constraint scoping

This patch fixes Trac #13242, by a bit of fancy footwork
with the LIE variable in which the WantedConstraints are

I think it can be simplified further, using a 'map'.

2 years agoTest Trac #13271
Simon Peyton Jones [Wed, 22 Feb 2017 08:43:58 +0000 (08:43 +0000)] 
Test Trac #13271

2 years agoBump Cabal and containers submodules
Ben Gamari [Tue, 21 Feb 2017 21:13:36 +0000 (16:13 -0500)] 
Bump Cabal and containers submodules

2 years agoFix all broken perf tests on x64 Windows
Tamar Christina [Tue, 21 Feb 2017 16:21:48 +0000 (11:21 -0500)] 
Fix all broken perf tests on x64 Windows

various perf tests have been broken over the course of the past few
months.  This updates the numbers.

Test Plan: ./validate

Reviewers: austin, bgamari

Subscribers: thomie, #ghc_windows_task_force

Differential Revision:

2 years agoTest Trac #13300
Simon Peyton Jones [Tue, 21 Feb 2017 17:44:02 +0000 (17:44 +0000)] 
Test Trac #13300

2 years agoGather constraints locally in checkMain
Simon Peyton Jones [Tue, 21 Feb 2017 15:53:06 +0000 (15:53 +0000)] 
Gather constraints locally in checkMain

Wiwth -fdefer-type-errors we were generating some top-level
equality constraints, just in a corner of checkMain.  The
fix is easy.

Fixes Trac #13292

2 years agoDisallow class instances for synonyms
Simon Peyton Jones [Tue, 21 Feb 2017 15:00:03 +0000 (15:00 +0000)] 
Disallow class instances for synonyms

See Trac #13267 and Note [Instances and constraint synonyms]
in TcValidity.

We can't easily do a perfect job, because the rename is really trying
to do its lookup too early.  But this is at least an improvement.

2 years agoA bit more tc-tracing in TcTyClsDecls
Simon Peyton Jones [Tue, 21 Feb 2017 14:40:59 +0000 (14:40 +0000)] 
A bit more tc-tracing in TcTyClsDecls

2 years agoRemove panics for TcTyCon
Simon Peyton Jones [Tue, 21 Feb 2017 14:34:50 +0000 (14:34 +0000)] 
Remove panics for TcTyCon

Previously TcTyCons were used only for knot-tying, but now they
are also used after an error, to add a benign TyCon to the envt
so we can carry on; see TyCon.makeRecoveryTyCon.  But since it
is used in this way, subsequent declarations may see a TcTyCon
(e.g. during injectivity checks) and should not have a heart attack
as a result.

See Note [TcTyCon] in TyCon.

This fixes Trac #13271

2 years agoA little refactoring of the simplifier around join points
Simon Peyton Jones [Tue, 21 Feb 2017 14:30:56 +0000 (14:30 +0000)] 
A little refactoring of the simplifier around join points

* Rename SimplEnv.setInScope to setInScopeAndZapFloats,
  because I keep forgetting that's what it does

* Remove unnecessary (and hence confusing) zapJoinFloats from

* Reorder args of simplJoinRhs to put the cont last

2 years agoReplace some pushTcLevelM's with pushTcLevelM_
Ryan Scott [Tue, 21 Feb 2017 14:51:43 +0000 (09:51 -0500)] 
Replace some pushTcLevelM's with pushTcLevelM_

These occurrences of pushTcLevelM weren't using the resulting TcLevel,
so they can be replaced with the (ostensibly more efficient) pushTcLevelM_.

No change in behavior.

2 years agoMinor spelling, grammar, and formatting fixes
Ryan Scott [Tue, 21 Feb 2017 14:43:43 +0000 (09:43 -0500)] 
Minor spelling, grammar, and formatting fixes

[ci skip]

2 years agoFix SetLevels for join points
Simon Peyton Jones [Fri, 17 Feb 2017 15:03:52 +0000 (15:03 +0000)] 
Fix SetLevels for join points

This fixes Trac #13255.  The trouble was that we had a bottoming
join point, and tried to float it to top level. But it had free
JoinIds, so we tried to abstract over them.

Disaster.  Lint should have caught it, but didn't (now fixed).

This patch fixes the original problem.

2 years agoImprove Core Lint, mainly for join points
Simon Peyton Jones [Fri, 17 Feb 2017 15:03:01 +0000 (15:03 +0000)] 
Improve Core Lint, mainly for join points

* lintSingleBinding: check that join points have
                     a valid join-point type
  (Trac #13281)

* lintIdBinder: check that a JoinId is bound by
                a non-top-level let
  i.e.  not a top level binder
        not lambda/case binder

* Check for empty Rec [] bindings

* Rename lintIdBndrs to lintLetBndrs

2 years agotestsuite: Fix allocations of T10547
Ben Gamari [Tue, 21 Feb 2017 14:12:34 +0000 (09:12 -0500)] 
testsuite: Fix allocations of T10547

Previously the comment was correct, but the expected value itself was never

2 years agoRefactor inferConstraints not to use CPS
Simon Peyton Jones [Tue, 21 Feb 2017 14:27:30 +0000 (14:27 +0000)] 
Refactor inferConstraints not to use CPS

For some odd reason inferConstraints was using a CPS style,
which is entirely unnecessary.  This patch straightens it out.

No change in what it does.

2 years agoFix computation of dfun_tvs in mkNewTypeEqn
Simon Peyton Jones [Tue, 21 Feb 2017 13:29:16 +0000 (13:29 +0000)] 
Fix computation of dfun_tvs in mkNewTypeEqn

This bug was causing Trac #13297.

We were recomputing ds_tvs, and doing it wrongly (by omitting
variables that appear only in mtheta).  But actually plain 'tvs'
is just fine.  So code deleted, and bug fixed.

2 years agoFix DeriveAnyClass (again)
Simon Peyton Jones [Tue, 21 Feb 2017 10:27:41 +0000 (10:27 +0000)] 
Fix DeriveAnyClass (again)

This patch fixes Trac #13272.  The general approach was fine, but
we were simply not generating the correct implication constraint
(in particular generating fresh unification variables).  I added
a lot more commentary to Note [Gathering and simplifying
constraints for DeriveAnyClass]

I'm still not very happy with the overall architecture.  It feels
more complicate than it should.

2 years agoSpelling in comments only
Simon Peyton Jones [Tue, 21 Feb 2017 10:25:27 +0000 (10:25 +0000)] 
Spelling in comments only

2 years Add option for debug symbols
Ben Gamari [Tue, 21 Feb 2017 00:08:59 +0000 (19:08 -0500)] Add option for debug symbols

2 years agoBump time submodule to 1.8
Ben Gamari [Mon, 20 Feb 2017 21:01:04 +0000 (16:01 -0500)] 
Bump time submodule to 1.8

This unfortunately had quite a number of knock-on effects, including a need for
new releases of directory and unix.

2 years agoBump Win32 submodule to
Ben Gamari [Mon, 20 Feb 2017 20:59:35 +0000 (15:59 -0500)] 
Bump Win32 submodule to

2 years agoBump a few more performance regressions from Type-indexed Typeable
Ben Gamari [Mon, 20 Feb 2017 18:30:49 +0000 (13:30 -0500)] 
Bump a few more performance regressions from Type-indexed Typeable

These are right on the edge of acceptance and are only reproducible on a
stressed machine.

2 years agoBump Cabal submodule
Ben Gamari [Mon, 20 Feb 2017 16:11:03 +0000 (11:11 -0500)] 
Bump Cabal submodule

We are now tracking the 2.0 branch.

2 years agoA number of Typeable wibbles from review
Ben Gamari [Sun, 19 Feb 2017 15:07:56 +0000 (10:07 -0500)] 
A number of Typeable wibbles from review

I forgot to fold these in to the patch merged earlier.

2 years agoRemove redundant import
Simon Peyton Jones [Fri, 17 Feb 2017 14:57:26 +0000 (14:57 +0000)] 
Remove redundant import

2 years agoFix Core pretty printer
Simon Peyton Jones [Fri, 17 Feb 2017 14:56:13 +0000 (14:56 +0000)] 
Fix Core pretty printer

If a JoinId (bogusly) ends up in an argument position we printed
    f jump j
rather than
    f (jump j)

Easy to fix.

2 years agoKill off the remaining Rec []
Simon Peyton Jones [Fri, 17 Feb 2017 14:55:06 +0000 (14:55 +0000)] 
Kill off the remaining Rec []

The desugarer was producing an empty Rec group, which is never
supposed to happen.  This small patch stops that happening.

Next up: Lint should check.

2 years agoChange -dppr-ticks to -dsuppress-ticks
Simon Peyton Jones [Fri, 17 Feb 2017 14:50:59 +0000 (14:50 +0000)] 
Change -dppr-ticks to -dsuppress-ticks

I spent about two hours today hunting fruitlessly for a simplifier
bug (when fixing Trac #13255), only to find that it was caused by
-ddump-X silently suppressing all ticks in Core.

I think this has happened to me once before.

So I've changed to make tick-printing on by default (like coercions,
etc), with a flag -dsuppress-ticks (like -dsuppress-coercions) to
suppress them.


-dppr-ticks is still there, but deprecated.

2 years agoTypos in manual, tests and comments
Gabor Greif [Wed, 15 Feb 2017 17:13:26 +0000 (18:13 +0100)] 
Typos in manual, tests and comments

2 years agoRemove ghc-api/landmine tests
Alan Zimmerman [Sun, 19 Feb 2017 11:40:52 +0000 (13:40 +0200)] 
Remove ghc-api/landmine tests

They take a long time to run, and are effectively superseded by the -ddump-*-ast

2 years agoImprove Haddock documentation for compact.
Edward Z. Yang [Sat, 18 Feb 2017 01:30:16 +0000 (17:30 -0800)] 
Improve Haddock documentation for compact.

Test Plan: none

Reviewers: simonmar, bgamari, austin

Subscribers: thomie

Differential Revision:

2 years agoDisable Typeable binding generation for unboxed sums
Ben Gamari [Sun, 12 Feb 2017 14:06:00 +0000 (09:06 -0500)] 
Disable Typeable binding generation for unboxed sums

These things are simply too expensive to generate at the moment. More
work is needed here; see #13276 and #13261.

2 years agoType-indexed Typeable
Ben Gamari [Thu, 2 Feb 2017 06:29:26 +0000 (01:29 -0500)] 
Type-indexed Typeable

This at long last realizes the ideas for type-indexed Typeable discussed in A
Reflection on Types (#11011). The general sketch of the project is described on
the Wiki (Typeable/BenGamari). The general idea is that we are adding a type
index to `TypeRep`,

    data TypeRep (a :: k)

This index allows the typechecker to reason about the type represented by the `TypeRep`.
This index representation mechanism is exposed as `Type.Reflection`, which also provides
a number of patterns for inspecting `TypeRep`s,

pattern TRFun :: forall k (fun :: k). ()
              => forall (r1 :: RuntimeRep) (r2 :: RuntimeRep)
                        (arg :: TYPE r1) (res :: TYPE r2).
                 (k ~ Type, fun ~~ (arg -> res))
              => TypeRep arg
              -> TypeRep res
              -> TypeRep fun

pattern TRApp :: forall k2 (t :: k2). ()
              => forall k1 (a :: k1 -> k2) (b :: k1). (t ~ a b)
              => TypeRep a -> TypeRep b -> TypeRep t

-- | Pattern match on a type constructor.
pattern TRCon :: forall k (a :: k). TyCon -> TypeRep a

-- | Pattern match on a type constructor including its instantiated kind
-- variables.
pattern TRCon' :: forall k (a :: k). TyCon -> [SomeTypeRep] -> TypeRep a

In addition, we give the user access to the kind of a `TypeRep` (#10343),

    typeRepKind :: TypeRep (a :: k) -> TypeRep k

Moreover, all of this plays nicely with 8.2's levity polymorphism, including the
newly levity polymorphic (->) type constructor.

Library changes

The primary change here is the introduction of a Type.Reflection module to base.
This module provides access to the new type-indexed TypeRep introduced in this
patch. We also continue to provide the unindexed Data.Typeable interface, which
is simply a type synonym for the existentially quantified SomeTypeRep,

    data SomeTypeRep where SomeTypeRep :: TypeRep a -> SomeTypeRep

Naturally, this change also touched Data.Dynamic, which can now export the
Dynamic data constructor. Moreover, I removed a blanket reexport of
Data.Typeable from Data.Dynamic (which itself doesn't even import Data.Typeable

We also add a kind heterogeneous type equality type, (:~~:), to


The implementation strategy is described in Note [Grand plan for Typeable] in
TcTypeable. None of it was difficult, but it did exercise a number of parts of
the new levity polymorphism story which had not yet been exercised, which took
some sorting out.

The rough idea is that we augment the TyCon produced for each type constructor
with information about the constructor's kind (which we call a KindRep). This
allows us to reconstruct the monomorphic result kind of an particular
instantiation of a type constructor given its kind arguments.

Unfortunately all of this takes a fair amount of work to generate and send
through the compilation pipeline. In particular, the KindReps can unfortunately
get quite large. Moreover, the simplifier will float out various pieces of them,
resulting in numerous top-level bindings. Consequently we mark the KindRep
bindings as noinline, ensuring that the float-outs don't make it into the
interface file. This is important since there is generally little benefit to
inlining KindReps and they would otherwise strongly affect compiler performance.


Initially I was hoping to also clear up the remaining holes in Typeable's
coverage by adding support for both unboxed tuples (#12409) and unboxed sums
(#13276). While the former was fairly straightforward, the latter ended up being
quite difficult: while the implementation can support them easily, enabling this
support causes thousands of Typeable bindings to be emitted to the GHC.Types as
each arity-N sum tycon brings with it N promoted datacons, each of which has a
KindRep whose size which itself scales with N. Doing this was simply too
expensive to be practical; consequently I've disabled support for the time

Even after disabling sums this change regresses compiler performance far more
than I would like. In particular there are several testcases in the testsuite
which consist mostly of types which regress by over 30% in compiler allocations.
These include (considering the "bytes allocated" metric),

 * T1969:  +10%
 * T10858: +23%
 * T3294:  +19%
 * T5631:  +41%
 * T6048:  +23%
 * T9675:  +20%
 * T9872a: +5.2%
 * T9872d: +12%
 * T9233:  +10%
 * T10370: +34%
 * T12425: +30%
 * T12234: +16%
 * 13035:  +17%
 * T4029:  +6.1%

I've spent quite some time chasing down the source of this regression and while
I was able to make som improvements, I think this approach of generating
Typeable bindings at time of type definition is doomed to give us unnecessarily
large compile-time overhead.

In the future I think we should consider moving some of all of the Typeable
binding generation logic back to the solver (where it was prior to
91c6b1f54aea658b0056caec45655475897f1972). I've opened #13261 documenting this

2 years agoGeneralize kind of the (->) tycon
Ben Gamari [Thu, 2 Feb 2017 01:25:33 +0000 (20:25 -0500)] 
Generalize kind of the (->) tycon

This is generalizes the kind of `(->)`, as discussed in #11714.

This involves a few things,

 * Generalizing the kind of `funTyCon`, adding two new `RuntimeRep`
(->) :: forall (r1 :: RuntimeRep) (r2 :: RuntimeRep)
               (a :: TYPE r1) (b :: TYPE r2).
        a -> b -> *

 * Unsaturated applications of `(->)` are expressed as explicit

 * Saturated applications of `(->)` are expressed as `FunTy` as they are

 * Saturated applications of `(->)` are expressed by a new `FunCo`
constructor in coercions

 * `splitTyConApp` needs to ensure that `FunTy`s are split to a
   of `(->)` with the appropriate `RuntimeRep` arguments

 * Teach CoreLint to check that all saturated applications of `(->)` are
represented with `FunTy`

At the moment I assume that `Constraint ~ *`, which is an annoying
source of complexity. This will
be simplified once D3023 is resolved.

Also, this introduces two known regressions,

`tcfail181`, `T10403`
Only shows the instance,

    instance Monad ((->) r) -- Defined in ‘GHC.Base’

in its error message when -fprint-potential-instances is used. This is
because its instance head now mentions 'LiftedRep which is not in scope.
I'm not entirely sure of the right way to fix this so I'm just accepting
the new output for now.

T5963 (Typeable)

T5963 is now broken since Data.Typeable.Internals.mkFunTy computes its
fingerprint without the RuntimeRep variables that (->) expects. This
will be fixed with the merge of D2010.

Haddock performance

The `haddock.base` and `haddock.Cabal` tests regress in allocations by
about 20%. This certainly hurts, but it's also not entirely unexpected:
the size of every function type grows with this patch and Haddock has a
lot of functions in its heap.

2 years agoBump nofib submodule
Ben Gamari [Thu, 16 Feb 2017 21:38:43 +0000 (16:38 -0500)] 
Bump nofib submodule

2 years agoBump libraries/array submodule
Ben Gamari [Thu, 16 Feb 2017 21:38:32 +0000 (16:38 -0500)] 
Bump libraries/array submodule

2 years agoSay 'data' explicitly in IfAbstractTyCon output.
Edward Z. Yang [Mon, 13 Feb 2017 06:36:19 +0000 (22:36 -0800)] 
Say 'data' explicitly in IfAbstractTyCon output.

Signed-off-by: Edward Z. Yang <>
2 years agoImprovements/bugfixes to signature reexport handling.
Edward Z. Yang [Mon, 13 Feb 2017 00:02:44 +0000 (16:02 -0800)] 
Improvements/bugfixes to signature reexport handling.

A number of changes:

- Keep the TcGblEnv from typechecking the local signature
  around when we do merging.  In particular, we setup
  tcg_imports and tcg_rdr_env according to the local
  signature.  This improves our error output (for example,
  see bkpfail04) and also fixes a bug with reexporting
  modules in signatures (see bkpreex07)

- Fix a bug in thinning, where if we had signature A(module A),
  this previously would have *thinned out* all of the inherited
  signatures.  Now we treat every inherited signature as having
  come from an import like "import A", so a module A reexport
  will pick them up.

- Recompilation checking now keeps track of dependent source files
  of the source signature; previously we forgot to retain this

There's a manual update too.

Signed-off-by: Edward Z. Yang <>
Test Plan: validate

Reviewers: bgamari, austin

Subscribers: thomie

Differential Revision:

2 years agoFix recompilation tracking on signatures.
Edward Z. Yang [Sun, 12 Feb 2017 12:28:38 +0000 (04:28 -0800)] 
Fix recompilation tracking on signatures.

Previously we weren't tracking these dependencies at all,
because we couldn't "find" the interface for {A.H}.  Now
we've associated hole names to the correct module identity
so we will pick them up.

Signed-off-by: Edward Z. Yang <>
Test Plan: validate

Reviewers: bgamari, austin

Subscribers: thomie, snowleopard

Differential Revision:

2 years agoFix a Backpack recompilation avoidance bug when signatures change.
Edward Z. Yang [Sun, 12 Feb 2017 10:44:01 +0000 (02:44 -0800)] 
Fix a Backpack recompilation avoidance bug when signatures change.

Recompilation avoidance checks if -this-unit-id has changed by relying
on the "wanted module" check in readIface ("Something is amiss...").
Unfortunately, this check didn't check if the instantiation made
sense, which meant that if you changed the signatures of a Backpack
package, we'd still treat the old signatures as up-to-date.

The way I fixed this was by having findAndReadIface take in a 'Module'
representing the /actual/ module we were intending to lookup.  We
convert this into the 'Module' we expect to see in 'mi_module' and
now do a more elaborate check that will also verify that instantiations
make sense.

Along the way, I robustified the logging infrastructure for
recompilation checking, and folded wrongIfaceModErr (which
was dead code) into the error message.

Signed-off-by: Edward Z. Yang <>
Test Plan: validate

Reviewers: bgamari, austin

Subscribers: thomie, snowleopard

Differential Revision:

2 years agoSimplify OutputableBndr
Simon Peyton Jones [Fri, 17 Feb 2017 13:58:58 +0000 (13:58 +0000)] 
Simplify OutputableBndr

This replaces three methods in OutputableBndr with one,
and adds comments.

There's also a tiny change in the placement of equals signs in
debug-prints.  I like it better that way, but if it complicates
life for anyone we can put it back.

2 years agoFix a substitution bug in cseCase
Simon Peyton Jones [Fri, 17 Feb 2017 12:47:39 +0000 (12:47 +0000)] 
Fix a substitution bug in cseCase

There was a missing substTy in cseCase!  Wow.  I'm surprised
it has not caused problems.  Anyway, easily fixed.

2 years agoHonour -dsuppress-uniques more thoroughly
Simon Peyton Jones [Fri, 17 Feb 2017 13:14:00 +0000 (13:14 +0000)] 
Honour -dsuppress-uniques more thoroughly

I found that tests
and friends were printing uniques, which makes the test fragile.
But -dsuppress-uniques made no difference!  It turned out that
pprName wasn't properly consulting Opt_SuppressUniques.

This patch fixes the problem, and updates those three tests to
use -dsuppress-uniques

2 years agoComments only, about inl_inline and inl_act
Simon Peyton Jones [Fri, 17 Feb 2017 00:01:46 +0000 (00:01 +0000)] 
Comments only, about inl_inline and inl_act

2 years agoBetter perf for haddock.base, haddock.Cabal
Simon Peyton Jones [Thu, 16 Feb 2017 17:44:58 +0000 (17:44 +0000)] 
Better perf for haddock.base, haddock.Cabal

I think this is due to
  commit 6bab649bde653f13c15eba30d5007bef4a9a9d3a
  Author: Simon Peyton Jones <>
  Date:   Thu Feb 16 09:42:32 2017 +0000

      Improve checking of joins in Core Lint

Improvement is around 5%.

2 years agoUse the correct origin in SectionL and Section R
Simon Peyton Jones [Thu, 16 Feb 2017 12:51:36 +0000 (12:51 +0000)] 
Use the correct origin in SectionL and Section R

This fixes Trac #13285.

The CallStack stuff is all driven by a CtOrigin of (OccurenceOf f),
and we were instead using SectionOrigin.  Boo!

Easily fixed; and I did a little refactoring as usual.

2 years agoImprove checking of joins in Core Lint
Simon Peyton Jones [Thu, 16 Feb 2017 09:42:32 +0000 (09:42 +0000)] 
Improve checking of joins in Core Lint

This patch addresses the rather expensive treatment of join points,
identified in Trac #13220 comment:17

Before we were tracking the "bad joins".  Now we track the good ones.
That is easier to think about, and much more efficient; see CoreLint
Note [Join points].

On the way I did some other modest refactoring, among other things
removing a duplicated call of lintIdBndr for let-bindings.

On teh

2 years agoComments and tiny refactor only
Simon Peyton Jones [Thu, 16 Feb 2017 09:41:55 +0000 (09:41 +0000)] 
Comments and tiny refactor only

2 years agoTypos [ci skip]
Gabor Greif [Mon, 13 Feb 2017 14:32:49 +0000 (15:32 +0100)] 
Typos [ci skip]

2 years agoDon't warn about missing methods for instances in signatures.
Edward Z. Yang [Tue, 14 Feb 2017 18:16:04 +0000 (13:16 -0500)] 
Don't warn about missing methods for instances in signatures.

Test Plan: validate

Reviewers: bgamari, austin, dfeuer

Reviewed By: dfeuer

Subscribers: dfeuer, thomie

Differential Revision:

2 years agoMake deSugarExpr use runTcInteractive
Reid Barton [Tue, 14 Feb 2017 18:13:56 +0000 (13:13 -0500)] 
Make deSugarExpr use runTcInteractive

Preparation for #13102, which needs to add more logic to
runTcInteractive, which would need to be duplicated in deSugarExpr.

In order to break an import cycle, I had to move
"Dependency/fingerprinting code" to a new module
DsUsage; which seems sensible anyways.

Test Plan: validate

Reviewers: simonpj, austin, bgamari

Reviewed By: bgamari

Subscribers: thomie, snowleopard

Differential Revision:

2 years agoCheck local type family instances against all imported ones
Reid Barton [Tue, 14 Feb 2017 18:13:37 +0000 (13:13 -0500)] 
Check local type family instances against all imported ones

We previously checked type family instance declarations
in a module for consistency with all instances that we happened
to have read into the EPS or HPT. It was possible to arrange that
an imported type family instance (used by an imported function)
was in a module whose interface file was never read during
compilation; then we wouldn't check consistency of local instances
with this imported instance and as a result type safety was lost.

With this patch, we still check consistency of local type family
instances with all type family instances that we have loaded; but
we make sure to load the interface files of all our imports that
define family instances first. More selective consistency checking
is left to #13102.

On the other hand, we can now safely assume when we import a module
that it has been checked for consistency with its imports. So we
can save checking in checkFamInstConsistency, and overall we should
have less work to do now.

This patch also adds a note describing the Plan for ensuring type
family consistency.

Test Plan: Two new tests added; harbormaster

Reviewers: austin, simonpj, bgamari

Reviewed By: simonpj, bgamari

Subscribers: ggreif, thomie

Differential Revision:

2 years agoUpdate .mailmap [skip ci]
Matthew Pickering [Tue, 14 Feb 2017 16:15:55 +0000 (16:15 +0000)] 
Update .mailmap [skip ci]

2 years agoImplement HasField constraint solving and modify OverloadedLabels
Adam Gundry [Tue, 14 Feb 2017 14:53:28 +0000 (09:53 -0500)] 
Implement HasField constraint solving and modify OverloadedLabels

This implements automatic constraint solving for the new HasField class
and modifies the existing OverloadedLabels extension, as described in
the GHC proposal
( Per the current
form of the proposal, it does *not* currently introduce a separate
`OverloadedRecordFields` extension.

This replaces D1687.

The users guide documentation still needs to be written, but I'll do
that after the implementation is merged, in case there are further
design changes.

Test Plan: new and modified tests in overloadedrecflds

Reviewers: simonpj, goldfire, dfeuer, bgamari, austin, hvr

Reviewed By: bgamari

Subscribers: maninalift, dfeuer, ysangkok, thomie, mpickering

Differential Revision:

2 years agoAllow type defaulting for multi-param type classes with ExtendedDefaultRules
vivid-synth [Tue, 14 Feb 2017 14:51:54 +0000 (09:51 -0500)] 
Allow type defaulting for multi-param type classes with ExtendedDefaultRules

Expressions like the following will now typecheck:

    data A x = A deriving Show

    class ToA a x where
       toA :: a -> A x

    instance ToA Integer x where
       toA _ = A

    main = print (toA 5 :: A Bool)

The new defaulting rules are

Find all the unsolved constraints. Then:

* Find those that have exactly one free type variable, and partition
  that subset into groups that share a common type variable `a`.
* Now default `a` (to one of the types in the default list) if at least
  one of the classes `Ci` is an interactive class

Reviewers: goldfire, bgamari, austin, mpickering, simonpj

Reviewed By: bgamari, simonpj

Subscribers: mpickering, simonpj, goldfire, thomie

Differential Revision:

2 years agoFix ExtraSymbols jump table on Windows.
Tamar Christina [Tue, 14 Feb 2017 14:44:53 +0000 (09:44 -0500)] 
Fix ExtraSymbols jump table on Windows.

This corrects the `jump islands` calculations for Windows.  The code was
incorrectly creating a new entry for every `usage` of a symbol instead
of every used symbol. e.g. if a symbol is used 5 times it used to create
5 jump islands. This is incorrect and not in line with what the `ELF`
and `Mach-O` linkers do. Also since we allocate `n` spaces where `n` is
number of symbols, we would quickly run out of space and abort.

Test Plan: ./validate

Reviewers: simonmar, hvr, erikd, bgamari, austin

Reviewed By: bgamari

Subscribers: thomie, #ghc_windows_task_force

Differential Revision:

2 years agoExpand list of always loaded Windows shared libs
Tamar Christina [Tue, 14 Feb 2017 14:43:02 +0000 (09:43 -0500)] 
Expand list of always loaded Windows shared libs

When the `GCC` driver envokes the pipeline a `SPEC` is used to determine
how to configure the compiler and which libraries to pass along.

For Windows/mingw, this specfile is

This expands the list of base DLLs with the ones that GCC always links,
and adds extra sibling dlls of `stdc++` in case it is linked in.

Following D3028 this patch only needs to load the always load only the
top level individual shared libs.

Test Plan: ./validate

Reviewers: RyanGlScott, austin, bgamari, erikd, simonmar

Reviewed By: bgamari

Subscribers: RyanGlScott, thomie, #ghc_windows_task_force

Differential Revision:

2 years agoRefactor renaming of operators/sections to fix DuplicateRecordFields bugs
Adam Gundry [Tue, 14 Feb 2017 14:35:06 +0000 (09:35 -0500)] 
Refactor renaming of operators/sections to fix DuplicateRecordFields bugs

A variety of panics were possible because the get_op function in
RnTypes didn't handle the possibility that its argument might be an
ambiguous record field. I've made its return type more informative to
correctly handle occurrences of record fields.  Fixes Trac #13132.

Test Plan: new test

Reviewers: bgamari, simonpj, austin

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agoTcUnify: Assert precondition of matchExpectedTyConApp
Ben Gamari [Tue, 14 Feb 2017 14:31:08 +0000 (09:31 -0500)] 
TcUnify: Assert precondition of matchExpectedTyConApp

Test Plan: Validate

Reviewers: simonpj, austin

Subscribers: thomie

Differential Revision:

2 years agoTypecast covers entire expression to fix format warning.
bollu [Tue, 14 Feb 2017 13:43:58 +0000 (08:43 -0500)] 
Typecast covers entire expression to fix format warning.

- Fixes (#12636).
- changes all the typecasts to _unsinged long long_ to
  have the format specifiers work.

Reviewers: austin, bgamari, erikd, simonmar, Phyx

Reviewed By: erikd, Phyx

Subscribers: thomie

Differential Revision:

2 years agoDebug: Use local symbols for unwind points (#13278)
Ben Gamari [Tue, 14 Feb 2017 13:43:40 +0000 (08:43 -0500)] 
Debug: Use local symbols for unwind points (#13278)

While this apparently didn't matter on Linux, the OS X toolchain seems
to treat local and external symbols differently during linking. Namely,
the linker assumes that an external symbol marks the beginning of a new,
unused procedure, and consequently drops it.

Fixes regression introduced in D2741.

Test Plan: `debug` testcase on OS X

Reviewers: austin, simonmar, rwbarton

Reviewed By: rwbarton

Subscribers: rwbarton, thomie

Differential Revision: