From 12b3e97d0ee4b7d1fa6560b91d14ef7be110bdff Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 9 Aug 2012 05:15:01 +1000 Subject: Compilation now automated --- Delete.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Delete.hs') diff --git a/Delete.hs b/Delete.hs index adeb5a5..9f94ee6 100644 --- a/Delete.hs +++ b/Delete.hs @@ -10,7 +10,7 @@ import qualified Data.Graph.Inductive.Graph as Graph main = do args <- getArgs - list <- getLines $ head args + list <- getLines (head args) let graph = doGraphGen (map (stripReturn) list) initList = filter (\x -> Graph.indeg graph x == 0) (Graph.nodes graph) thmList = (map (\(_,y) -> y)) . -- cgit