Fix comments

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)