Commit 677cb266 authored by Alina Banerjee's avatar Alina Banerjee

Extract correct SourceText for SPECIALIZE instance pragma error message

parent b352d63c
Pipeline #19377 failed with stages
in 9 minutes and 57 seconds
......@@ -1135,8 +1135,8 @@ hsSigDoc (IdSig {}) = text "id signature"
hsSigDoc (SpecSig _ _ _ inl)
= ppr inl <+> text "pragma"
hsSigDoc (InlineSig _ _ prag) = ppr (inlinePragmaSpec prag) <+> text "pragma"
hsSigDoc (SpecInstSig _ src _)
= pprWithSourceText src empty <+> text "instance pragma"
hsSigDoc (SpecInstSig _ (SourceText src) _)
= text (last $ words src) <+> text "instance pragma"
hsSigDoc (FixSig {}) = text "fixity declaration"
hsSigDoc (MinimalSig {}) = text "MINIMAL pragma"
hsSigDoc (SCCFunSig {}) = text "SCC pragma"
......
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