diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2017-09-09 13:47:08 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2017-09-09 14:27:27 +0200 |
| commit | dab0e515eadecaee3e9e9f5f8eee3159fa39bb27 (patch) | |
| tree | ba23795bfde3c92dd9567fc5d617ac21ad4d97d1 /compiler/llvmGen | |
| parent | 400ead81e80f66ad7b1260b11b2a92f25ccc3e5a (diff) | |
| download | haskell-dab0e515eadecaee3e9e9f5f8eee3159fa39bb27.tar.gz | |
Canonicalise Monoid instances in GHC
IOW, code compiles -Wnoncanonical-monoid-instances clean now
Diffstat (limited to 'compiler/llvmGen')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index f09237c6d9..099e8194bd 100644 --- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs @@ -1867,8 +1867,7 @@ instance Semigroup LlvmAccum where instance Monoid LlvmAccum where mempty = LlvmAccum nilOL [] - LlvmAccum stmtsA declsA `mappend` LlvmAccum stmtsB declsB = - LlvmAccum (stmtsA `mappend` stmtsB) (declsA `mappend` declsB) + mappend = (Semigroup.<>) liftExprData :: LlvmM ExprData -> WriterT LlvmAccum LlvmM LlvmVar liftExprData action = do |