10h vacuum cleaner sound

1 files changed, 2 insertions, 2 deletions

diff --git a/app/IR.hs b/app/IR.hs
index f17547d..cfb0b9a 100644
--- a/app/IR.hs
+++ b/app/IR.hs
@@ -17,7 +17,7 @@ data Id =
   deriving (Show, Eq, Ord)
 
 data PrlgInt
-  = CallI Id [PrlgInt] --TODO this should be Int
+  = CallI Int [PrlgInt]
   | LiteralI Int
   | ListI [PrlgInt] (Maybe PrlgInt) -- only exists before desugaring
   | VarI Int Int -- VarI localIndex strTableString
@@ -41,7 +41,7 @@ internPrlg = go
     go t (LiteralS str) = LiteralI <$> strtablize t str
     go t (CallS str ps) =
       let (t', i) = strtablize t str
-       in CallI (Id i $ length ps) <$> mapAccumL go t' ps
+       in CallI i <$> mapAccumL go t' ps
     go t (ListS elems Nothing) = flip ListI Nothing <$> mapAccumL go t elems
     go t (ListS elems (Just tail)) =
       let (t', tail') = go t tail