From eabe772b13a521a5d62eb43c29dac932727df995 Mon Sep 17 00:00:00 2001
From: Alp Mestanogullari <alp@well-typed.com>
Date: Tue, 2 Jun 2020 15:28:34 +0200
Subject: [PATCH] compare-ticks: add support for con ticks, and more cases for
thk
---
compare-ticks/TickyReport.hs | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/compare-ticks/TickyReport.hs b/compare-ticks/TickyReport.hs
index ba8d2fc..0d68f03 100644
--- a/compare-ticks/TickyReport.hs
+++ b/compare-ticks/TickyReport.hs
@@ -138,8 +138,10 @@ parseStgName = topName <|> try nonExportedName <|> exportedName
_name <- funcName
_sig <- sig
spaces
- optional $ do
- text "(fun)" <|> text "(fun,se)"
+ optional $
+ text "(fun)" <|> text "(fun,se)" <|> text "(thk)" <|> text "(con)"
+ <|> text "(thk,std)" <|> text "(thk,se)"
+ <|> text "(thk,se,std)"
return $ StgName True mod _name _sig Nothing
-- e.g. sat_sbMg{v} (main@main:Main) in sbMh
@@ -150,7 +152,10 @@ parseStgName = topName <|> try nonExportedName <|> exportedName
spaces
mod <- fmap (fromMaybe noModule) $ optional $ try $ parens parseModuleName
spaces
- optional $ text "(fun)" <|> text "(fun,se)" <|> text "(thk)"
+ optional $
+ text "(fun)" <|> text "(fun,se)" <|> text "(thk)" <|> text "(con)"
+ <|> text "(thk,std)" <|> text "(thk,se)"
+ <|> text "(thk,se,std)"
parent <- optional $ spaces *> text "in" *> spaces *> funcName
return $ StgName False mod _name _sig parent
--
GitLab