aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--rip.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/rip.hs b/rip.hs
index 6660c76..553d881 100644
--- a/rip.hs
+++ b/rip.hs
@@ -139,10 +139,9 @@ getfuncname' (_:xs) =
rip :: String -> IO ([Stackelem],Map.Map Stackelem Handle)
rip s = rip' s Map.empty Map.empty []
--- code function map filedesc table stack resulting stack
rip' :: String -- code
-> Map.Map String String -- function map
- -> Map.Map Stackelem Handle -- filedecs table
+ -> Map.Map Stackelem Handle -- filedesc table
-> [Stackelem] -- stack
-> IO ([Stackelem],Map.Map Stackelem Handle) -- resulting stack and filedesc table
rip' [] _ conns st = return (st,conns)