Commit 7d4c78f6 authored by Francesco Gazzetta's avatar Francesco Gazzetta

Fix T11430

parent fe0cd523
Pipeline #22966 failed with stages
in 123 minutes and 14 seconds
......@@ -70,11 +70,11 @@ testOneFile libdir fileName = do
doHsExpr (HsPragE _ (HsPragTick _ src (_,_,_) ss) _) = [("tp",[show ss])]
doHsExpr _ = []
doInline (InlinePragma _ _ _ (ActiveBefore (SourceText ss) _) _)
doInline (InlinePragma _ _ _ _ (ActiveBefore (SourceText ss) _) _)
= [("ib",[ss])]
doInline (InlinePragma _ _ _ (ActiveAfter (SourceText ss) _) _)
doInline (InlinePragma _ _ _ _ (ActiveAfter (SourceText ss) _) _)
= [("ia",[ss])]
doInline (InlinePragma _ _ _ _ _ ) = []
doInline (InlinePragma _ _ _ _ _ _ ) = []
showAnns anns = "[\n" ++ (intercalate "\n"
$ map (\((s,k),v)
......
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