Commit f00f0aa2 authored by Francesco Gazzetta's avatar Francesco Gazzetta

Update a test

parent bad612ae
Pipeline #23987 passed with stages
in 463 minutes and 7 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