Commit f3f60b04 authored by Ben Gamari's avatar Ben Gamari 🐢

MkIface: Ensure syntactic compatibility with ghc 8.0.1

Prior to 8.0.2 MultiWayIf syntax required that the -> token be indented relative
to the guard. See #10807.
parent 504b7065
......@@ -1275,11 +1275,11 @@ checkOptimHash hsc_env iface = do
new_hash <- liftIO $ fingerprintOptFlags (hsc_dflags hsc_env)
putNameLiterally
if | old_hash == new_hash
-> up_to_date (text "Optimisation flags unchanged")
-> up_to_date (text "Optimisation flags unchanged")
| gopt Opt_IgnoreOptimChanges (hsc_dflags hsc_env)
-> up_to_date (text "Optimisation flags changed; ignoring")
-> up_to_date (text "Optimisation flags changed; ignoring")
| otherwise
-> out_of_date_hash "Optimisation flags changed"
-> out_of_date_hash "Optimisation flags changed"
(text " Optimisation flags have changed")
old_hash new_hash
......@@ -1290,11 +1290,11 @@ checkHpcHash hsc_env iface = do
new_hash <- liftIO $ fingerprintHpcFlags (hsc_dflags hsc_env)
putNameLiterally
if | old_hash == new_hash
-> up_to_date (text "HPC flags unchanged")
-> up_to_date (text "HPC flags unchanged")
| gopt Opt_IgnoreHpcChanges (hsc_dflags hsc_env)
-> up_to_date (text "HPC flags changed; ignoring")
-> up_to_date (text "HPC flags changed; ignoring")
| otherwise
-> out_of_date_hash "HPC flags changed"
-> out_of_date_hash "HPC flags changed"
(text " HPC flags have changed")
old_hash new_hash
......
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