1 files changed, 1 insertions, 1 deletions
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)) .