From ed813ac55310dfb1fbc391bcfbce7d5e44c64114 Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Thu, 25 May 2017 17:36:54 +0200
Subject: Fix comments

---
 rip.hs | 3 +--
 1 file changed, 1 insertion(+), 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)
-- 
cgit v1.2.3