From ed813ac55310dfb1fbc391bcfbce7d5e44c64114 Mon Sep 17 00:00:00 2001 From: tomsmeding 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-70-g09d2