diff options
| author | Gabor Greif <ggreif@gmail.com> | 2020-01-03 21:22:36 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@well-typed.com> | 2020-01-03 21:22:36 -0500 |
| commit | b2e0323f318959c879629ef277f6433b44473c4b (patch) | |
| tree | fde32aab739fa509fb8ec8e478aca10ccdc07491 /compiler/cmm | |
| parent | b84c09d533faf576c406ce9f7163efecf3037787 (diff) | |
| download | haskell-b2e0323f318959c879629ef277f6433b44473c4b.tar.gz | |
Simplify mrStr
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmType.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/compiler/cmm/CmmType.hs b/compiler/cmm/CmmType.hs index 43d23c7ee7..f8ac71ac89 100644 --- a/compiler/cmm/CmmType.hs +++ b/compiler/cmm/CmmType.hs @@ -175,14 +175,7 @@ instance Outputable Width where ppr rep = ptext (mrStr rep) mrStr :: Width -> PtrString -mrStr W8 = sLit("W8") -mrStr W16 = sLit("W16") -mrStr W32 = sLit("W32") -mrStr W64 = sLit("W64") -mrStr W128 = sLit("W128") -mrStr W256 = sLit("W256") -mrStr W512 = sLit("W512") - +mrStr = sLit . show -------- Common Widths ------------ |