diff --git a/haskell.html.markdown b/haskell.html.markdown
index e3ec3f38..6b3c6e17 100644
--- a/haskell.html.markdown
+++ b/haskell.html.markdown
@@ -329,7 +329,7 @@ main' = interact countLines
 sayHello :: IO ()
 sayHello = do 
    putStrLn "What is your name?"
-   name <- getLine -- this gets a line and gives it the name "input"
+   name <- getLine -- this gets a line and gives it the name "name"
    putStrLn $ "Hello, " ++ name
    
 -- Exercise: write your own version of `interact` that only reads