diff options
author | Herbert Valerio Riedel <hvr@gnu.org> | 2017-09-21 23:30:05 +0200 |
---|---|---|
committer | Herbert Valerio Riedel <hvr@gnu.org> | 2017-09-22 00:24:25 +0200 |
commit | feac0a3bc69fd376231aa3c83d031c131156ddb9 (patch) | |
tree | ad94a04d30869efe5a9d021f3fe2923269b5bfbd /testsuite/tests/callarity | |
parent | 9aa73892e10e90a1799b9277da593e816a827364 (diff) | |
download | haskell-feac0a3bc69fd376231aa3c83d031c131156ddb9.tar.gz |
Reexport Semigroup's <> operator from Prelude (#14191)
This completes the 2nd phase of the Semigroup=>Monoid Proposal (SMP)
initiated in 8ae263ceb3566a7c82336400b09cb8f381217405.
This updates a couple submodules to address <> naming clashes.
Diffstat (limited to 'testsuite/tests/callarity')
-rw-r--r-- | testsuite/tests/callarity/unittest/CallArity1.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/callarity/unittest/CallArity1.hs b/testsuite/tests/callarity/unittest/CallArity1.hs index 8fd8feb548..1100ff6a8f 100644 --- a/testsuite/tests/callarity/unittest/CallArity1.hs +++ b/testsuite/tests/callarity/unittest/CallArity1.hs @@ -172,7 +172,7 @@ main = do case lintExpr dflags [f,scrutf,scruta] e of Just msg -> putMsg dflags (msg $$ text "in" <+> text n) Nothing -> return () - putMsg dflags (text n <> char ':') + putMsg dflags (text n Outputable.<> char ':') -- liftIO $ putMsg dflags (ppr e) let e' = callArityRHS e let bndrs = nonDetEltsUniqSet (allBoundIds e') |