Simplify mrStr

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  ------------

compiler/main/DriverPipeline.hs

@@ -1250,7 +1250,7 @@ runPhase (RealPhase cc_phase) input_fn dflags
 
         -- pass -D or -optP to preprocessor when compiling foreign C files
         -- (#16737). Doing it in this way is simpler and also enable the C
-        -- compiler to performs preprocessing and parsing in a single pass,
+        -- compiler to perform preprocessing and parsing in a single pass,
         -- but it may introduce inconsistency if a different pgm_P is specified.
         let more_preprocessor_opts = concat
               [ ["-Xpreprocessor", i]

compiler/main/Packages.hs

@@ -1444,7 +1444,7 @@ mkPackageState dflags dbs preload0 = do
           we build a mapping saying what every in scope module name points to.
 -}
 
-  -- This, and the other reverse's that you will see, are due to the face that
+  -- This, and the other reverse's that you will see, are due to the fact that
   -- packageFlags, pluginPackageFlags, etc. are all specified in *reverse* order
   -- than they are on the command line.
   let other_flags = reverse (packageFlags dflags)