Skip to content

Commit 5963a9d

Browse files
committed
fix stg point order
1 parent 59aacc8 commit 5963a9d

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

external-stg/lib/Stg/Pretty.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -604,7 +604,7 @@ pShow :: Doc -> (Text, [(StgPoint, SrcRange)])
604604
pShow = pShowWithConfig Config {cfgPrintTickish = False}
605605

606606
pShowWithConfig :: Config -> Doc -> (Text, [(StgPoint, SrcRange)])
607-
pShowWithConfig cfg doc = (T.concat . reverse $ spsOutput result, spsStgPoints result)
607+
pShowWithConfig cfg doc = (T.concat . reverse $ spsOutput result, reverse $ spsStgPoints result)
608608
where
609609
result = execState (renderPOut $ execDoc cfg doc) emptyStgPointState
610610

0 commit comments

Comments
 (0)