Commit 155b6701 authored by Alina Banerjee's avatar Alina Banerjee

Extract correct SourceText for SPECIALIZE instance pragma error message

parent b352d63c
Pipeline #19382 failed with stages
in 118 minutes and 11 seconds
......@@ -1135,8 +1135,10 @@ 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 (SpecInstSig _ NoSourceText _)
= 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