summaryrefslogtreecommitdiff
path: root/app/IR.hs
diff options
context:
space:
mode:
authorMirek Kratochvil <exa.exa@gmail.com>2022-11-25 22:18:11 +0100
committerMirek Kratochvil <exa.exa@gmail.com>2022-11-25 22:18:11 +0100
commit58367975aed706172487727330670d62fcb0e6d1 (patch)
treed605c3ba9bee6e1739ca469a36bb3b58d7273439 /app/IR.hs
parent6f123999e01fc1c26742f4c9f575b392693d2847 (diff)
downloadprlg-58367975aed706172487727330670d62fcb0e6d1.tar.gz
prlg-58367975aed706172487727330670d62fcb0e6d1.tar.bz2
assert v0
Diffstat (limited to 'app/IR.hs')
-rw-r--r--app/IR.hs2
1 files changed, 1 insertions, 1 deletions
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