[commit: ghc] wip/T13861: Simplify mrStr (1fd74fc)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T13861
Link       : http://ghc.haskell.org/trac/ghc/changeset/1fd74fcc798e4da07fdefb8d02dff479abe27d34/ghc

>---------------------------------------------------------------

commit 1fd74fcc798e4da07fdefb8d02dff479abe27d34
Author: Gabor Greif <ggreif at gmail.com>
Date:   Tue Sep 5 17:13:46 2017 +0200

    Simplify mrStr


>---------------------------------------------------------------

1fd74fcc798e4da07fdefb8d02dff479abe27d34
 compiler/cmm/CmmType.hs | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/compiler/cmm/CmmType.hs b/compiler/cmm/CmmType.hs
index cb15dc7..a696401 100644
--- a/compiler/cmm/CmmType.hs
+++ b/compiler/cmm/CmmType.hs
@@ -177,14 +177,7 @@ instance Outputable Width where
    ppr rep = ptext (mrStr rep)
 
 mrStr :: Width -> LitString
-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 W80  = sLit("W80")
+mrStr = sLit . show
 
 
 -------- Common Widths  ------------