2 years agoUnused identifiers wip/all-inlinable-head
Matthew Pickering [Mon, 9 Jan 2017 18:24:28 +0000 (18:24 +0000)] 
Unused identifiers

2 years agoAlways expose unfoldings for overloaded functions.
Matthew Pickering [Sat, 6 Aug 2016 21:17:09 +0000 (22:17 +0100)] 
Always expose unfoldings for overloaded functions.

Users expect their overloaded functions to be specialised at call sites,
however, this is only the case if they are either lucky and GHC chooses to
include the unfolding or they mark their definition with an INLINABLE pragma.
This leads to library authors marking all their functions with `INLINABLE` (or
more accurately `INLINE`) so they ensure that downstream consumers pay no cost
for their abstraction.

A more sensible default is to do this job for the library author and give more
predictable guarantees about specialisation.

Empirically, I compiled a selection of 1150 packages with (a similar) patch applied. The total size of the interface files before the patch was 519mb and after 634mb. On modern machines, I think this increase is justified for the result.

Reviewers: simonpj, austin, bgamari

Subscribers: thomie

Differential Revision:

2 years agoParse holes as infix operators
Ömer Sinan Ağacan [Sun, 8 Jan 2017 04:52:53 +0000 (07:52 +0300)] 
Parse holes as infix operators

Reported as #13050. Since holes are expressions but not identifiers,
holes were not allowed in infix operator position. This patch introduces
a new production in infix operator parser to allow this.

Reviewers: simonpj, austin, bgamari

Reviewed By: simonpj

Subscribers: simonpj, RyanGlScott, thomie, mpickering

Differential Revision:

GHC Trac Issues: #13050

2 years agoTH: Add Trustworthy language pragma
Erik de Castro Lopo [Sat, 7 Jan 2017 21:34:30 +0000 (08:34 +1100)] 
TH: Add Trustworthy language pragma

Test Plan: validate

Reviewers: goldfire, bgamari, austin, RyanGlScott

Reviewed By: RyanGlScott

Subscribers: RyanGlScott, simonpj, thomie, goldfire

Differential Revision:

GHC Trac Issues: #12511

2 years agoHave addModFinalizer expose the local type environment.
Facundo Domínguez [Tue, 20 Dec 2016 11:39:10 +0000 (08:39 -0300)] 
Have addModFinalizer expose the local type environment.

Kind inference in ghci was interfered when renaming of type splices
introduced the HsSpliced data constructor. This patch has kind
inference skip over it.

Test Plan: ./validate

Reviewers: simonpj, rrnewton, bgamari, goldfire, austin

Subscribers: thomie, mboes

Differential Revision:

GHC Trac Issues: #12985

2 years agoRevert "Have addModFinalizer expose the local type environment."
Facundo Domínguez [Fri, 6 Jan 2017 18:08:47 +0000 (15:08 -0300)] 
Revert "Have addModFinalizer expose the local type environment."

This reverts commit e5d1ed9c8910839e109da59820ca793642961284.

2 years agoActually add the right file for T13035 stderr
Matthew Pickering [Fri, 6 Jan 2017 17:15:35 +0000 (17:15 +0000)] 
Actually add the right file for T13035 stderr

2 years agoHave addModFinalizer expose the local type environment.
Facundo Domínguez [Mon, 2 Jan 2017 22:42:20 +0000 (19:42 -0300)] 
Have addModFinalizer expose the local type environment.

Kind inference in ghci was interfered when renaming of type splices
introduced the HsSpliced data constructor. This patch has kind
inference skip over it.

Test Plan: ./validate

Reviewers: simonpj, rrnewton, austin, goldfire, bgamari

Reviewed By: goldfire, bgamari

Subscribers: thomie, mboes

Differential Revision:

GHC Trac Issues: #12985

2 years agoAdd missing stderr file for T13035
Matthew Pickering [Fri, 6 Jan 2017 17:14:30 +0000 (17:14 +0000)] 
Add missing stderr file for T13035

2 years agoMore fixes for #5654
Simon Marlow [Tue, 20 Dec 2016 14:32:11 +0000 (14:32 +0000)] 
More fixes for #5654

* In stg_ap_0_fast, if we're evaluating a thunk, the thunk might
  evaluate to a function in which case we may have to adjust its CCS.

* The interpreter has its own implementation of stg_ap_0_fast, so we
  have to do the same shenanigans with creating empty PAPs and copying
  PAPs there.

* GHCi creates Cost Centres as children of CCS_MAIN, which enterFunCCS()
  wrongly assumed to imply that they were CAFs.  Now we use the is_caf
  flag for this, which we have to correctly initialise when we create a
  Cost Centre in GHCi.

2 years agoAdd performance test for #13056
Ryan Scott [Wed, 4 Jan 2017 18:57:25 +0000 (13:57 -0500)] 
Add performance test for #13056

This performance regression was fixed by commit
517d03e41b4f5c144d1ad684539340421be2be2a (#12234). Let's add a performance test
to ensure that it doesn't break again.

2 years agoFix the implementation of the "push rules"
Simon Peyton Jones [Fri, 6 Jan 2017 09:35:37 +0000 (09:35 +0000)] 
Fix the implementation of the "push rules"

Richard pointed out (comment:12 of Trac #13025) that my
implementation of the coercion "push rules", newly added
in exprIsConAppMaybe by commit b4c3a66, wasn't quite right.

But in fact that means that the implementation of those same
rules in Simplify.simplCast was wrong too.

Hence this commit:

* Refactor the push rules so they are implemented in just
  one place (CoreSubst.pushCoArgs, pushCoTyArg, pushCoValArg)
  The code in Simplify gets simpler, which is nice.

* Fix the bug that Richard pointed out (to do with hetero-kinded

Then compiler performance worsened, which led mt do discover
two performance bugs:

* The smart constructor Coercion.mkNthCo didn't have a case
  for ForAllCos, which meant we stupidly build a complicated
  coercion where a simple one would do

* In OptCoercion there was one place where we used CoherenceCo
  (the data constructor) rather than mkCoherenceCo (the smart
  constructor), which meant that the the stupid complicated
  coercion wasn't optimised away

For reasons I don't fully understand, T5321Fun did 2% less compiler
allocation after all this, which is good.

2 years agoAvoid exponential blowup in FamInstEnv.normaliseType
Simon Peyton Jones [Thu, 5 Jan 2017 17:40:49 +0000 (17:40 +0000)] 
Avoid exponential blowup in FamInstEnv.normaliseType

Trac #13035 showed up a nasty case where we took exponentially
long to normalise a (actually rather simple) type.  Fortunately
it was easy to fix: see Note [Normalisation and type synonyms].

2 years agoUse the right in-scope set
Simon Peyton Jones [Thu, 5 Jan 2017 17:39:08 +0000 (17:39 +0000)] 
Use the right in-scope set

I tripped over these calls to substTyWith that didn't obey the
precondition about in-scope variables.  Easily fixed, happily.

2 years agoCoerce for fmapDefault and foldMapDefault
David Feuer [Thu, 5 Jan 2017 21:25:37 +0000 (16:25 -0500)] 
Coerce for fmapDefault and foldMapDefault

Define `fmapDefault = coerce traverse` and `foldMapDefault = coerce
traverse`.  This ensures that we won't get unnecessary allocation and
indirection when the arguments don't inline.

Fixes #13058

Reviewers: ekmett, RyanGlScott, austin, hvr, bgamari

Reviewed By: RyanGlScott

Subscribers: simonpj, RyanGlScott, thomie

Differential Revision:

GHC Trac Issues: #13058

2 years agoFix doctests in Data.Functor
Oleg Grenrus [Thu, 5 Jan 2017 21:25:29 +0000 (16:25 -0500)] 
Fix doctests in Data.Functor

Reviewers: austin, hvr, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

GHC Trac Issues: #11551

2 years agoRemove single top-level section in Foldable docs
Chris Martin [Thu, 5 Jan 2017 21:25:17 +0000 (16:25 -0500)] 
Remove single top-level section in Foldable docs

This fixes a mild annoyance in the haddock output for Data.Foldable.
The section outline had a single top-level heading, which doesn't serve
any purpose as far as I can tell.

Reviewers: austin, hvr, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agoUse atomic counter for GHC.Event.Unique
alexbiehl [Tue, 3 Jan 2017 15:59:39 +0000 (10:59 -0500)] 
Use atomic counter for GHC.Event.Unique

Reviewers: hvr, austin, bgamari

Reviewed By: bgamari

Subscribers: mpickering, thomie

Differential Revision:

2 years agoAdd a CSE pass to Stg (#9291)
Joachim Breitner [Thu, 15 Dec 2016 18:57:43 +0000 (10:57 -0800)] 
Add a CSE pass to Stg (#9291)

This CSE pass only targets data constructor applications. This is
probably the best we can do, as function calls and primitive operations
might have side-effects.

Introduces the flag -fstg-cse, enabled by default with -O for now. It
might also be a good candiate for -O2.

Differential Revision:

2 years agoEnsure nested binders have Internal Names
Simon Peyton Jones [Wed, 4 Jan 2017 17:47:13 +0000 (17:47 +0000)] 
Ensure nested binders have Internal Names

This is a long-standing bug.  A nested (non-top-level) binder
in Core should not have an External Name, like M.x. But

- Lint was not checking this invariant

- The desugarer could generate programs that failed the
  invariant.  An example is in
  tests/deSugar/should_compile/T13043, which had
     let !_ = M.scState in ...
  This desugared to
     let ds = case M.scSate of M.scState { DEFAULT -> () }
     in case ds of () -> ...

  We were wrongly re-using that scrutinee as a case binder.
  And Trac #13043 showed that could ultimately lead to two
  top-level bindings with the same closure name.  Alas!

- The desugarer had one other place (in DsUtils.mkCoreAppDs)
  that could generate bogus code

This patch fixes all three bugs, and adds a regression test.

2 years agoMinor refactoring in CSE
Simon Peyton Jones [Wed, 4 Jan 2017 13:14:30 +0000 (13:14 +0000)] 
Minor refactoring in CSE

I noticed that CSE.addBinding was always returning one of its own
inputs, so I refactored to avoid doing so.

No change in behaviour.

2 years agoRemove a redundant test
Simon Peyton Jones [Wed, 4 Jan 2017 13:09:54 +0000 (13:09 +0000)] 
Remove a redundant test

postInlineUnconditionally was testing for isExportedId, but it was
/also/ testing for top-level-ness, which is redundant.  This patch
just removes the redundant test, and documents it.

2 years agoTypofixes in manual and comments [ci skip]
Gabor Greif [Wed, 4 Jan 2017 17:37:23 +0000 (18:37 +0100)] 
Typofixes in manual and comments [ci skip]

2 years agoTypo in manual [ci skip]
Gabor Greif [Tue, 3 Jan 2017 16:45:19 +0000 (17:45 +0100)] 
Typo in manual [ci skip]

2 years agoDon't use $ in the definition of (<**>) in GHC.Base
Matthew Pickering [Tue, 3 Jan 2017 05:22:03 +0000 (00:22 -0500)] 
Don't use $ in the definition of (<**>) in GHC.Base

($) is special as Richard explains in the note at the top of the page.

However, when adding the note he didn't remove this usage. Normally it
didn't cause any problems as the optimiser optimised it away. However if
one had the propensity to stick one's fingers into the depths of the
inliner, it caused horrible idInfo panics.

Reviewers: rwbarton, hvr, austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

GHC Trac Issues: #13055

2 years agoAdd specialization rules for realToFrac on Complex
Takano Akio [Tue, 3 Jan 2017 05:20:24 +0000 (00:20 -0500)] 
Add specialization rules for realToFrac on Complex

This patch implements RULES that specialize realToFrac at these 2 types:

`(Real a) => a -> Complex Double`
`(Real a) => a -> Complex Float`

Test Plan: ./validate

Reviewers: austin, hvr, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

GHC Trac Issues: #13040

2 years agoRefactor importdecls/topdecls parsing.
Edward Z. Yang [Mon, 2 Jan 2017 22:03:42 +0000 (17:03 -0500)] 
Refactor importdecls/topdecls parsing.

Previously, we had the following parser:

    xs : xs ';' x
       | xs ';'
       | x

This is a very clever construction that handles duplicate,
leading and trailing semicolons well, but it didn't work very
well with annotations, where we wanted to attach the annotation
for a semicolon to the *previous* x in the list.  This lead
to some very disgusting code in the parser.

This commit refactors the parser into this form:

    semis1 : semis1 ';'
           | ';'
    xs_semi : xs x semis1
            | {- empty -}
    xs : xs_semi x

Now, when we parse one or more semicolons after an x, we can
attach them immediately, eliminating some very grotty annotations
swizzling that was previously in the parser.

We now need to write the top-level parser for imports and then
declarations in a slightly special way now:

    top : semis top1
    top1 : importdecls_semi topdecls_semi
         | importdecls_semi topdecls
         | importdecls

This is because the *_semi parsers always require a semicolon,
but we're allowed to omit that last newline.  So we need
special cases to handle each of the possible cases where we
may run out of semicolons. I don't know if there is a better
way to structure this, but it is not much more complicated
than what we had before for top (and asymptotically better!)

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

Reviewers: simonmar, austin, alanz, bgamari

Reviewed By: alanz, bgamari

Subscribers: thomie, mpickering

Differential Revision:

2 years agoDon't suggest enabling TypeApplications when it's already enabled
Maciej Bielecki [Mon, 2 Jan 2017 22:03:00 +0000 (17:03 -0500)] 
Don't suggest enabling TypeApplications when it's already enabled

Previously when encountering EAsPat in an expression context,
TypeApplications was suggested even when already enabled. This patch
replaces the suggestion with more appropriate message.

Test Plan: validate

Reviewers: austin, bgamari, mpickering, goldfire, simonpj

Reviewed By: mpickering, goldfire, simonpj

Subscribers: simonpj, goldfire, mpickering, thomie

Differential Revision:

GHC Trac Issues: #12879

2 years agoUpdate .mailmap
Matthew Pickering [Mon, 2 Jan 2017 22:14:59 +0000 (22:14 +0000)] 
Update .mailmap

2 years agoDisallow users to write instances of KnownNat and KnownSym
sjorn3 [Mon, 2 Jan 2017 21:57:04 +0000 (21:57 +0000)] 
Disallow users to write instances of KnownNat and KnownSym

As noted in #12837, these classes are special and the user should
not be able to define their own instances.

Test Plan: Validate

Reviewers: adamgundry, goldfire, mpickering, austin, bgamari

Reviewed By: goldfire, mpickering

Subscribers: goldfire, mpickering, thomie

Differential Revision:

GHC Trac Issues: #12837

2 years agoRemove documentation about non-existent flag.
Edward Z. Yang [Mon, 2 Jan 2017 04:26:01 +0000 (20:26 -0800)] 
Remove documentation about non-existent flag.

Signed-off-by: Edward Z. Yang <>
2 years agoFix incorrect statement about plugin packages.
Edward Z. Yang [Sun, 1 Jan 2017 17:41:45 +0000 (09:41 -0800)] 
Fix incorrect statement about plugin packages.

Signed-off-by: Edward Z. Yang <>
2 years agoFix various issues with testsuite code on Windows
Tamar Christina [Wed, 28 Dec 2016 10:04:28 +0000 (10:04 +0000)] 
Fix various issues with testsuite code on Windows

Previously we would make direct calls to `diff` using `os.system`.
On Windows `os.system` is implemented using the standard
idiom `CreateProcess .. WaitForSingleObject ..`.

This again runs afoul with the `_exec` behaviour on Windows. So we ran
into some trouble where sometimes `diff` would return before it's done.

On tests which run multiple ways, such as `8086` what happens is that
we think the diff is done and continue. The next way tries to set things
up again by removing any previous directory. This would then fail with
and error saying the directory can't be removed. Which is true, because
the previous diff code/child is still running.

We shouldn't make any external calls to anything using `os.system`.
Instead just use `runCmd` which uses `timeout`. This also ensures that if
we hit the cygwin bug where diff or any other utility hangs, we kill it and
continue and not hang the entire test and leave hanging processes.

Further more we also:
Ignore error lines from `removeFile` from tools in the testsuite. This is a rather large
hammer to work around the fact that `hsc2hs` often tries to remove it's own file too early.
When this is patched the workaround can be removed. See Trac #9775

We mark `prog003` as skip. Since this test randomly fails and passes. For stability it's disabled
but it is a genuine bug which we should find. It's something with interface files being
overwritten. See Trac #11317

when `rmtree` hits a readonly file, the `onerror` handler is raised afterwards but not
during the tree walk. It doesn't allow you to recover and continue as we thought.
Instead you have to explicitly start again. This is why sometimes even though we
call `cleanup` before `os.mkdirs`, it would sometimes fail with an error that the
folder already exists. So we now do a second walk.

A new verbosity level (4) will strip the silent flags from `MAKE` invocations so you can actually
see what's going on.

Test Plan: ./validate on build bots.

Reviewers: bgamari, austin

Reviewed By: bgamari

Subscribers: mpickering, thomie, #ghc_windows_task_force

Differential Revision:

GHC Trac Issues: #12661, #11317, #9775

2 years agoBump array submodule
Ben Gamari [Mon, 26 Dec 2016 18:14:38 +0000 (13:14 -0500)] 
Bump array submodule

Fixes overflow check from fix to #229.

2 years agoTestsuite: Skip failing tests on PowerPC 64-bit
Peter Trommler [Mon, 26 Dec 2016 15:04:54 +0000 (10:04 -0500)] 
Testsuite: Skip failing tests on PowerPC 64-bit

The Power ISA says the result of a division by zero is undefined.  So
ignore stdout on PowerPC 64-bit systems.

Disable ext-interp tests on 64-bit PowerPC.  We don't have support for
PowerPC 64-bit ELF in the RTS linker, which is needed for the external

Test Plan: ./validate

Reviewers: austin, simonmar, hvr, erikd, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agotestsuite: Fix T13025
Ben Gamari [Tue, 27 Dec 2016 17:08:24 +0000 (12:08 -0500)] 
testsuite: Fix T13025

It relied on `wc`, which produces slightly different format on OS X and Linux.
Instead use `grep -c` which appears to be supported on both platforms and
produces consistent output.

2 years agoExpand I/O CP in comments
Joachim Breitner [Tue, 27 Dec 2016 08:41:19 +0000 (09:41 +0100)] 
Expand I/O CP in comments

as suggested by @gracjan at

2 years agoCallArity: Use exprIsCheap to detect thunks
Joachim Breitner [Mon, 26 Dec 2016 09:16:55 +0000 (10:16 +0100)] 
CallArity: Use exprIsCheap to detect thunks

Originally, everything that is not in WHNF (`exprIsWHNF`) is considered
a thunk, not eta-expanded, to avoid losing any sharing. This is also how
the published papers on Call Arity describe it.

In practice, there are thunks that do a just little work, such as
pattern-matching on a variable, and the benefits of eta-expansion likely
oughtweigh the cost of doing that repeatedly. Therefore, this
implementation of Call Arity considers everything that is not cheap
(`exprIsCheap`) as a thunk.

Nofib reports -2.58% allocations for scs and -40.93% allocation for
wheel-sieve1; the latter has - 2.92% runtime.

2 years agoRemove redudant import from check-ppr
Matthew Pickering [Mon, 26 Dec 2016 16:26:49 +0000 (16:26 +0000)] 
Remove redudant import from check-ppr

2 years agocheck-ppr: Make --dump the default behavior
Ben Gamari [Mon, 26 Dec 2016 15:02:43 +0000 (10:02 -0500)] 
check-ppr: Make --dump the default behavior

2 years agorename: Add note describing #11216
Ben Gamari [Fri, 23 Dec 2016 23:09:40 +0000 (18:09 -0500)] 
rename: Add note describing #11216

2 years agoDefine MAP_ANONYMOUS on systems that only provide MAP_ANON
Gracjan Polak [Fri, 23 Dec 2016 19:37:08 +0000 (14:37 -0500)] 
Define MAP_ANONYMOUS on systems that only provide MAP_ANON

Reviewers: simonmar, erikd, austin, bgamari

Reviewed By: bgamari

Subscribers: gracjan, rwbarton, thomie

Differential Revision:

GHC Trac Issues: #13005

2 years agobase: Override Foldable.{toList,length} for NonEmpty
Artyom [Fri, 23 Dec 2016 19:36:55 +0000 (14:36 -0500)] 
base: Override Foldable.{toList,length} for NonEmpty

Previously the Foldable instance for NonEmpty used default
implementations for toList and length.

I assume that the existing implementations
(i.e. Data.List.NonEmpty.{toList,length}) are better than
the default ones, and frankly can't see a good reason why they
might be worse – but if they are, instead of this commit
we'd have to switch Data.List.NonEmpty.{toList,length}
to use Foldable.

Reviewers: austin, hvr, bgamari

Reviewed By: bgamari

Subscribers: int-index, thomie

Differential Revision:

2 years agoFix test for T12877
Sylvain Henry [Fri, 23 Dec 2016 19:36:10 +0000 (14:36 -0500)] 
Fix test for T12877

Summary: See

Reviewers: nomeata, austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agoUse python3 for linters
Matthew Pickering [Fri, 23 Dec 2016 19:35:55 +0000 (14:35 -0500)] 
Use python3 for linters

We now require python3 for the testsuite so rather than require two
versions of python it makes sense to use python3 for the linters as

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agoAdd caret diagnostics
Phil Ruffwind [Thu, 22 Dec 2016 22:06:51 +0000 (17:06 -0500)] 
Add caret diagnostics

This is controlled by -f[no-]diagnostics-show-caret.

Example of what it looks like:
 42 |     x = 1 + ()
    |         ^^^^^^
This is appended to each diagnostic message.

Test Plan:

Reviewers: simonpj, austin, bgamari

Reviewed By: simonpj, bgamari

Subscribers: joehillen, mpickering, Phyx, simonpj, alanz, thomie

Differential Revision:

GHC Trac Issues: #8809

2 years agorename: Don't require 'fail' in non-monadic contexts
Ben Gamari [Thu, 22 Dec 2016 18:55:30 +0000 (13:55 -0500)] 
rename: Don't require 'fail' in non-monadic contexts

Fixes #11216.

2 years agousers-guide: Kill extraneous link
Ben Gamari [Thu, 22 Dec 2016 18:07:23 +0000 (13:07 -0500)] 
users-guide: Kill extraneous link

2 years agotestsuite: Split out Windows allocations numbers for T12234
Ben Gamari [Wed, 21 Dec 2016 18:37:59 +0000 (13:37 -0500)] 
testsuite: Split out Windows allocations numbers for T12234

2 years agoPush coercions in exprIsConApp_maybe
Simon Peyton Jones [Fri, 23 Dec 2016 12:59:41 +0000 (12:59 +0000)] 
Push coercions in exprIsConApp_maybe

Trac #13025 showed up the fact that exprIsConApp_maybe isn't
clever enough: it didn't push coercions through applicatins, and that
meant we weren't getting as much superclass selection as we should.

It's easy to fix, happily.

See Note [Push coercions in exprIsConApp_maybe]

2 years agoRemoved dead code in DsCCall.mk_alt
Simon Peyton Jones [Fri, 23 Dec 2016 10:43:03 +0000 (10:43 +0000)] 
Removed dead code in DsCCall.mk_alt

Fixes Trac #13029 by deleting code and adding comments

2 years agoPropagate evaluated-ness a bit more faithfully
Simon Peyton Jones [Thu, 22 Dec 2016 12:22:47 +0000 (12:22 +0000)] 
Propagate evaluated-ness a bit more faithfully

This was provoked by Trac #13027.

The fix in Simplify actually cures the reported bug; see
Note [Case binder evaluated-ness] in Simplify.

The fix in CoreTidy looks like an omission that I fixed while I
was at it.

2 years agoTiny refactor in CoreTidy
Simon Peyton Jones [Thu, 22 Dec 2016 12:20:13 +0000 (12:20 +0000)] 
Tiny refactor in CoreTidy

2 years agoFloat unboxed expressions by boxing
Simon Peyton Jones [Fri, 9 Dec 2016 00:04:00 +0000 (00:04 +0000)] 
Float unboxed expressions by boxing

This patch makes GHC's floating more robust, by allowing it
to float unboxed expressions of at least some common types.

See Note [Floating MFEs of unlifted type] in SetLevels.

This was all provoked by Trac #12603

In working this through I also made a number of other corner-case
changes in SetLevels:

* Previously we inconsistently use exprIsBottom (which checks for
  bottom) instead of exprBotStrictness_maybe (which checks for
  bottoming functions).  As well as being inconsistent it was
  simply less good.

  See Note [Bottoming floats]

* I fixed a case where were were unprofitably floating an
  expression because we thought it escaped a value lambda
  (see Note [Escaping a value lambda]).  The relevant code is
       float_me = (dest_lvl `ltMajLvl` (le_ctxt_lvl env)
                  && not float_is_lam)   -- NEW

* I made lvlFloatRhs work properly in the case where abs_vars
  is non-empty.  It wasn't wrong before, but it did some stupid
  extra floating.

2 years agoEnsure that even bottoming functions have an unfolding
Simon Peyton Jones [Fri, 23 Dec 2016 10:06:03 +0000 (10:06 +0000)] 
Ensure that even bottoming functions have an unfolding

The payload of this change is to ensure that a bottoming function
still has an unfolding, just one with an UnfoldingGuidance of

Previously it was getting an unfolding of NoUnfolding. I don't think
that was really /wrong/, but it was inconsistent with the general
principle of giving everthing an unfoding if we know it.  And it
seems tideier this way.

2 years agoComments only
Simon Peyton Jones [Fri, 23 Dec 2016 10:04:23 +0000 (10:04 +0000)] 
Comments only

2 years agoWhite space only
Simon Peyton Jones [Fri, 23 Dec 2016 10:04:02 +0000 (10:04 +0000)] 
White space only

2 years agoFix a bug in ABot handling in CoreArity
Simon Peyton Jones [Fri, 23 Dec 2016 09:33:07 +0000 (09:33 +0000)] 
Fix a bug in ABot handling in CoreArity

See Note [ABot branches: use max] in CoreArity.

I stumbled on this when investigating something else, and
opened Trac #13031 to track it.

It's very hard to tickle the bug, which is why it has lurked so long,
but the test
does so

Oddly, the testsuite framework doesn't actually run the test; I have
no idea why.

2 years agoAlpha-renaming and white space only
Simon Peyton Jones [Thu, 22 Dec 2016 13:49:35 +0000 (13:49 +0000)] 
Alpha-renaming and white space only

2 years agoAllow timeout to kill entire process tree.
Tamar Christina [Fri, 23 Dec 2016 00:56:34 +0000 (00:56 +0000)] 
Allow timeout to kill entire process tree.

we spawn the child processes with handle inheritance on. So they inherit the std handles.
The problem is that the job handle gets inherited too.
So the `JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE` doesn't get used since there are
open handles to the job in the children.

We then terminate the top level process which is `sh` but leaves the children around.

This explicitly disallows the inheritance of the job and events handle.

Test Plan: ./validate

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie, #ghc_windows_task_force

Differential Revision:

GHC Trac Issues: #13004

2 years agoRevert "Suppress duplicate .T files"
Gabor Greif [Thu, 22 Dec 2016 13:57:27 +0000 (14:57 +0100)] 
Revert "Suppress duplicate .T files"

This reverts commit 9a29b65bda8aed4c5fdbff25866ddf2dd1583210.

It turns out that while not harmful, that commit is unnecessary,
and a `make clean` resolved it. See:

2 years agoFix another forward reference to a Note
Ryan Scott [Thu, 22 Dec 2016 01:35:33 +0000 (20:35 -0500)] 
Fix another forward reference to a Note

A continuation of ccc918cdc8b2d147c4dbc29bfc87c058862a97cd.

[ci skip]

2 years agoNotes on parsing lists in Parser.y
Edward Z. Yang [Wed, 21 Dec 2016 07:38:20 +0000 (23:38 -0800)] 
Notes on parsing lists in Parser.y

Maybe everyone knows this but I think it is worth mentioning

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

Reviewers: bgamari, austin

Subscribers: thomie, mpickering

Differential Revision:

2 years agoUpdate ghc-cabal command line usage text.
Edward Z. Yang [Wed, 21 Dec 2016 06:09:16 +0000 (22:09 -0800)] 
Update ghc-cabal command line usage text.

Old usage text was horribly out-of-date.  Now updated!

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

Reviewers: bgamari, austin

Subscribers: thomie

Differential Revision:

2 years agoSupport for abi-depends for computing shadowing.
Edward Z. Yang [Wed, 14 Dec 2016 09:28:43 +0000 (01:28 -0800)] 
Support for abi-depends for computing shadowing.

This is a complete fix based off of
ed7af26606b3a605a4511065ca1a43b1c0f3b51d for handling
shadowing and out-of-order -package-db flags simultaneously.

The general strategy is we first put all databases together,
overriding packages as necessary.  Once this is done, we successfully
prune out broken packages, including packages which depend on a package
whose ABI differs from the ABI we need.

Our check gracefully degrades in the absence of abi-depends, as
we only check deps which are recorded in abi-depends.

Contains time and Cabal submodule update.

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

Reviewers: niteria, austin, bgamari

Subscribers: thomie

Differential Revision:

GHC Trac Issues: #12485

2 years agoDisambiguate two Notes with identical names
Ryan Scott [Wed, 21 Dec 2016 16:44:04 +0000 (11:44 -0500)] 
Disambiguate two Notes with identical names

It turns out there were two Notes in the GHC codebase named
[Pattern synonym signatures]. To avoid confusion, I gave one Note a slightly
different name.

2 years agoFix a forward reference to a Note
Ryan Scott [Wed, 21 Dec 2016 16:40:06 +0000 (11:40 -0500)] 
Fix a forward reference to a Note

2 years agoImproved perf for T12227
Simon Peyton Jones [Wed, 21 Dec 2016 14:03:53 +0000 (14:03 +0000)] 
Improved perf for T12227

Improved compiler allocations by abut 5%.  It comes from one of

1a4c04b1 Fix 'SPECIALISE instance'
c48595ee Never apply worker/wrapper to DFuns
05d233e8 Move InId/OutId to CoreSyn
e07ad4db Don't eta-expand in stable unfoldings
d250d493 Add INLINE pragamas on Traversable default methods
c66dd05c Move typeSize/coercionSize into TyCoRep

I think d250d493.

But it's good anyway.

2 years agoTest Trac #12950
Simon Peyton Jones [Wed, 21 Dec 2016 12:26:12 +0000 (12:26 +0000)] 
Test Trac #12950

2 years agoFix 'SPECIALISE instance'
Simon Peyton Jones [Wed, 21 Dec 2016 12:24:41 +0000 (12:24 +0000)] 
Fix 'SPECIALISE instance'

Trac #12944 showed that the DsBinds code that implemented a
SPECIALISE pragma was inadequate if the constraints solving
added let-bindings for dictionaries.  The result was that
we ended up with an unbound dictionary in a DFunUnfolding -- and
Lint didn't even check for that!

Fixing this was not entirely straightforward

* In DsBinds.dsSpec we use a new function
  to pick off the lambda binders from the HsWapper

* dsWrapper now returns a (CoreExpr -> CoreExpr) function

* CoreUnfold.specUnfolding now takes a (CoreExpr -> CoreExpr)
  function it can use to specialise the unfolding.

On the whole the code is simpler than before.

2 years agoNever apply worker/wrapper to DFuns
Simon Peyton Jones [Wed, 21 Dec 2016 12:22:00 +0000 (12:22 +0000)] 
Never apply worker/wrapper to DFuns

While fixing Trac #12444 I found an occasion on which we applied
worker/wrapper to a DFunId.  This is bad: it destroys the magic

This patch is a minor refactoring that stops this corner case
happening, and tidies up the code a bit too.

2 years agoMove InId/OutId to CoreSyn
Simon Peyton Jones [Wed, 21 Dec 2016 12:13:11 +0000 (12:13 +0000)] 
Move InId/OutId to CoreSyn

It turned out that many different modules defined the same type
synonyms (InId, OutId, InType, OutType, etc) for the same purpose.

This patch is refactoring only: it moves all those definitions to

2 years agoLint DFunUnfoldings
Simon Peyton Jones [Mon, 19 Dec 2016 15:04:51 +0000 (15:04 +0000)] 
Lint DFunUnfoldings

Previously we simply failed to Lint these DFunUnfoldings, which led
to a very delayed error message for Trac #12944

2 years agoDon't eta-expand in stable unfoldings
Simon Peyton Jones [Wed, 21 Dec 2016 12:01:32 +0000 (12:01 +0000)] 
Don't eta-expand in stable unfoldings

See SimplUtils Note [No eta expansion in stable unfoldings],
and Trac #9509 for an excellend diagnosis by Nick Frisby

2 years agoAdd INLINE pragamas on Traversable default methods
Simon Peyton Jones [Wed, 21 Dec 2016 11:38:50 +0000 (11:38 +0000)] 
Add INLINE pragamas on Traversable default methods

I discovered, when debugging a performance regression in
the compiler, that the list instance of mapM was not being
inlined at call sites, with terrible runtime costs.

It turned out that this was a serious (but not entirely obvious)
omission of an INLINE pragmas in the class declaration for
Traversable.  This patch fixes it.  I reproduce below the
Note [Inline default methods], which I wrote at some length.

We may well want to apply the same fix in other class declarations
whose default methods are often used.

{- Note [Inline default methods]

   class ... => Traversable t where
       mapM :: Monad m => (a -> m b) -> t a -> m (t b)
       mapM = traverse   -- Default method

   instance Traversable [] where
       {-# INLINE traverse #-}
       traverse = ...code for traverse on lists ...

This gives rise to a list-instance of mapM looking like this

  $fTraversable[]_$ctaverse = ...code for traverse on lists...
       {-# INLINE $fTraversable[]_$ctaverse #-}
  $fTraversable[]_$cmapM    = $fTraversable[]_$ctraverse

Now the $ctraverse obediently inlines into the RHS of $cmapM, /but/
that's all!  We get

  $fTraversable[]_$cmapM = ...code for traverse on lists...

with NO INLINE pragma!  This happens even though 'traverse' had an
INLINE pragma becuase the author knew it should be inlined pretty

Indeed, it turned out that the rhs of $cmapM was just too big to
inline, so all uses of mapM on lists used a terribly inefficient
dictionary-passing style, because of its 'Monad m =>' type.  Disaster!

Solution: add an INLINE pragma on the default method:

   class ... => Traversable t where
       mapM :: Monad m => (a -> m b) -> t a -> m (t b)
       {-# INLINE mapM #-}     -- VERY IMPORTANT!
       mapM = traverse

2 years agoMove typeSize/coercionSize into TyCoRep
Simon Peyton Jones [Wed, 21 Dec 2016 11:24:25 +0000 (11:24 +0000)] 
Move typeSize/coercionSize into TyCoRep

While investigating something else I found that 'typeSize' was
allocating like crazy.  Stupid becuase it should allocate precisely

Turned out that it was because typeSize and coercionSize were mutually
recursive across module boundaries, and so could not benefit from the
CPR property.  To fix this I moved them both into TyCoRep.

It's not critical (because typeSize is really only used in
debug mode, but I tripped over and example (T5642) in which
typeSize was one of the biggest single allocators in all of GHC.
And it's easy to fix, so I did.

2 years agoAdd note for rebindable syntax of [a..b]
Simon Peyton Jones [Mon, 19 Dec 2016 15:06:34 +0000 (15:06 +0000)] 
Add note for rebindable syntax of [a..b]

See Trac #12969

2 years agoTest Trac #12968, plus some comments
Simon Peyton Jones [Mon, 19 Dec 2016 15:05:57 +0000 (15:05 +0000)] 
Test Trac #12968, plus some comments

2 years agoFix typos (not test relevant)
Gabor Greif [Wed, 21 Dec 2016 10:28:07 +0000 (11:28 +0100)] 
Fix typos (not test relevant)

2 years agoSuppress duplicate .T files
Gabor Greif [Wed, 21 Dec 2016 10:17:48 +0000 (11:17 +0100)] 
Suppress duplicate .T files

As per
use the set() function to zap duplicates from the obtained list of .T files.

I am using
$ python3 --version
Python 3.5.1

and strangely findTFiles() returns some .T files twice:

Found 376 .T files...

====> Scanning ../../libraries/array/tests/all.T
====> Scanning ../../libraries/array/tests/all.T
*** framework failure for T2120(duplicate) There are multiple tests with this name
*** framework failure for largeArray(duplicate) There are multiple tests with this name
*** framework failure for array001(duplicate) There are multiple tests with this name
*** framework failure for T9220(duplicate) There are multiple tests with this name
*** framework failure for T229(duplicate) There are multiple tests with this name

Found 365 .T files...
====> Scanning ../../libraries/array/tests/all.T

Even more strangely 'find' begs to differ:
$ find libraries testsuite/tests -name "*.T" | sort | uniq | wc -l

2 years agoRewrite Note [Api annotations] for clarity.
Edward Z. Yang [Tue, 20 Dec 2016 19:13:23 +0000 (11:13 -0800)] 
Rewrite Note [Api annotations] for clarity.

Based off my understanding of how the moving parts work.

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

Reviewers: alanz, mpickering, austin, bgamari

Subscribers: thomie

Differential Revision:

2 years agoMake CompactionFailed a newtype
Ryan Scott [Tue, 20 Dec 2016 21:32:30 +0000 (16:32 -0500)] 
Make CompactionFailed a newtype

2 years agoTest Trac #12996
Simon Peyton Jones [Tue, 20 Dec 2016 00:08:42 +0000 (00:08 +0000)] 
Test Trac #12996

2 years agoAllow use of the external interpreter in stage1.
Shea Levy [Tue, 20 Dec 2016 01:19:18 +0000 (01:19 +0000)] 
Allow use of the external interpreter in stage1.

Now that we have -fexternal-interpreter, we can lose most of the GHCI ifdefs.

This was originally added in
but that led to a compatibility issue with ghc 7.10.x on Windows.
That's fixed here and the revert reverted.

Reviewers: goldfire, hvr, austin, bgamari, Phyx

Reviewed By: Phyx

Subscribers: thomie

Differential Revision:

GHC Trac Issues: #13008

2 years agoMark T8089 as unbroken since #7325 is now resolved
Ben Gamari [Mon, 19 Dec 2016 23:45:08 +0000 (18:45 -0500)] 
Mark T8089 as unbroken since #7325 is now resolved

2 years agoFix timeout's timeout on Windows
Tamar Christina [Mon, 19 Dec 2016 00:18:57 +0000 (00:18 +0000)] 
Fix timeout's timeout on Windows

Timeout has been broken by my previous patch.
The timeout event was not being processed correctly,
as such hanging processes would not be killed as they should
have been.

This corrects it.

Test Plan:

~/ghc/testsuite/timeout/install-inplace/bin/timeout.exe 10 "sleep 10000s"

Reviewers: austin, RyanGlScott, bgamari

Reviewed By: bgamari

Subscribers: thomie, #ghc_windows_task_force

Differential Revision:

GHC Trac Issues: #13004

2 years agoRevert "Allow use of the external interpreter in stage1."
Tamar Christina [Mon, 19 Dec 2016 19:09:18 +0000 (19:09 +0000)] 
Revert "Allow use of the external interpreter in stage1."

This reverts commit 52ba9470a7e85d025dc84a6789aa809cdd68b566.

2 years agoT8242: disable on NOSMP targets
Sergei Trofimovich [Sun, 18 Dec 2016 17:30:10 +0000 (17:30 +0000)] 
T8242: disable on NOSMP targets

Test calls setNumCapabilities, requires SMP support.

Signed-off-by: Sergei Trofimovich <>
2 years agoregalloc_unit_tests: disable on UNREG targets
Sergei Trofimovich [Sun, 18 Dec 2016 17:24:13 +0000 (17:24 +0000)] 
regalloc_unit_tests: disable on UNREG targets

Test requires register allocator to be present
(native code generator).

Signed-off-by: Sergei Trofimovich <>
2 years agoT10296a: disable on NOSMP targets
Sergei Trofimovich [Sun, 18 Dec 2016 17:15:37 +0000 (17:15 +0000)] 
T10296a: disable on NOSMP targets

Test uses +RTS -N2, requires SMP support.

Signed-off-by: Sergei Trofimovich <>
2 years agoT8209: disable on NOSMP targets
Sergei Trofimovich [Sun, 18 Dec 2016 17:11:56 +0000 (17:11 +0000)] 
T8209: disable on NOSMP targets

Test calls setNumCapabilities, requires SMP support.

Signed-off-by: Sergei Trofimovich <>
2 years agoT12035j: disable on NOSMP targets
Sergei Trofimovich [Sun, 18 Dec 2016 17:01:11 +0000 (17:01 +0000)] 
T12035j: disable on NOSMP targets

Test calls setNumCapabilities, requires SMP support.

Signed-off-by: Sergei Trofimovich <>
2 years agoFix #12998 by removing CTimer
Ryan Scott [Sun, 18 Dec 2016 15:41:48 +0000 (10:41 -0500)] 
Fix #12998 by removing CTimer

CTimer is a wrapper around `timer_t`, which is a typedef for `void*`
on most platforms. The issue is that GHC's `FPTOOLS_CHECK_HTYPE` is not robust
enough to discern pointer types from non-pointer types, so it mistakenly labels
`timer_t` as a `Double` or `Int32` (depending on how many bits a pointer takes
up on your platform). This wreaks havoc when trying to give it certain type
class instances, as noted in

For now, the simplest thing to do would be removing `CTimer`, since:

1. The original author (@DanielG) didn't have a particular use in mind for
   `timer_t` when he fixed #12795.
2. `CTimer` hasn't appeared in a release of `base` yet.

Fixes #12998.

Reviewers: austin, hvr, bgamari, DanielG, trofi

Reviewed By: bgamari, trofi

Subscribers: thomie, DanielG, erikd

Differential Revision:

GHC Trac Issues: #12795, #12998

2 years agoIntroduce unboxedSum{Data,Type}Name to template-haskell
Ryan Scott [Sun, 18 Dec 2016 15:41:33 +0000 (10:41 -0500)] 
Introduce unboxedSum{Data,Type}Name to template-haskell

In D2448 (which introduced Template Haskell support for unboxed
sums), I neglected to add `unboxedSumDataName` and `unboxedSumTypeName`
functions, since there wasn't any way you could write unboxed sum data or type
constructors in prefix form to begin with (see #12514). But even if you can't
write these `Name`s directly in source code, it would still be nice to be able
to use these `Name`s in Template Haskell (for instance, to be able to treat
unboxed sum type constructors like any other type constructors).

Along the way, this uncovered a minor bug in `isBuiltInOcc_maybe` in
`TysWiredIn`, which was calculating the arity of unboxed sum data constructors

Test Plan: make test TEST=T12478_5

Reviewers: osa1, goldfire, austin, bgamari

Subscribers: thomie

Differential Revision:

GHC Trac Issues: #12478, #12514

2 years agoFix Haddock comment typo.
Edward Z. Yang [Sun, 18 Dec 2016 10:55:04 +0000 (02:55 -0800)] 
Fix Haddock comment typo.

Signed-off-by: Edward Z. Yang <>
2 years agoCheck family instance consistency of hs-boot families later, fixes #11062.
Edward Z. Yang [Fri, 16 Dec 2016 02:05:33 +0000 (18:05 -0800)] 
Check family instance consistency of hs-boot families later, fixes #11062.

With hs-boot files, some type families may be defined in the
module we are typechecking.  In this case, we are not allowed
to poke these families until after we typecheck our local
declarations.  So we first check everything involving non-recursive
families, and then check the recursive families as we finish
kind-checking them.

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

Reviewers: goldfire, austin, simonpj, bgamari

Subscribers: thomie

Differential Revision:

GHC Trac Issues: #11062

2 years agoAllow use of the external interpreter in stage1.
Shea Levy [Sun, 18 Dec 2016 01:08:58 +0000 (20:08 -0500)] 
Allow use of the external interpreter in stage1.

Now that we have -fexternal-interpreter, we can lose most of the GHCI ifdefs.

Reviewers: simonmar, goldfire, austin, hvr, bgamari

Reviewed By: simonmar

Subscribers: RyanGlScott, mpickering, angerman, thomie

Differential Revision:

2 years agoDocs: Delete duplicate paragraph in user guide
Siddhanathan Shanmugam [Sat, 17 Dec 2016 23:09:13 +0000 (18:09 -0500)] 
Docs: Delete duplicate paragraph in user guide

Removes duplicate paragraph in user guide. The same paragraph is
repeated below this one.

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agoImprove StringBuffer and FastString docs
Phil Ruffwind [Sat, 17 Dec 2016 23:09:06 +0000 (18:09 -0500)] 
Improve StringBuffer and FastString docs

This area of code contains a lot of unsafe functionality, so it might be
worth documenting to reduce the risk of misuse.

Test Plan: inspection

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

2 years agoRun some tests with -fexternal-interpreter -prof
Simon Marlow [Sat, 17 Dec 2016 23:08:59 +0000 (18:08 -0500)] 
Run some tests with -fexternal-interpreter -prof

We don't have any other tests for this, except one Template Haskell
test.  This would have caught the bug I just fixed in D2868, at least
when validating with profiling on.

Test Plan: Ran tests

Reviewers: niteria, austin, erikd, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:

GHC Trac Issues: #5654