From 58367975aed706172487727330670d62fcb0e6d1 Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Fri, 25 Nov 2022 22:18:11 +0100 Subject: assert v0 --- app/IR.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'app/IR.hs') diff --git a/app/IR.hs b/app/IR.hs index 50c7493..fa987e5 100644 --- a/app/IR.hs +++ b/app/IR.hs @@ -25,7 +25,7 @@ data StrTable = StrTable Int (M.Map String Int) (M.Map Int String) deriving (Show) -emptystrtable = StrTable 0 M.empty M.empty +emptystrtable = StrTable 1 M.empty M.empty strtablize t@(StrTable nxt fwd rev) str = case fwd M.!? str of -- cgit v1.2.3