Commit b2e0323f authored by Gabor Greif's avatar Gabor Greif 💬 Committed by Ben Gamari

Simplify mrStr

parent b84c09d5
Pipeline #14207 failed with stages
in 474 minutes and 2 seconds
......@@ -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 ------------
......
......@@ -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]
......
......@@ -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)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment