[ create a new paste ] login | about

Link: http://codepad.org/yMXJFRgM    [ raw code | fork ]

Haskell, pasted on Oct 21:
1
2
3
4
5
6
7
8
9
10
main' :: IO()
main' = do
  name <- getName
  putStrLn $ "Hi, " ++ name ++ "!"
   where
     getName = do
       putStrLn "What is your name?"
       putStr "Name: "
       name <- getLine
       if null name then getName else return name


Create a new paste based on this one


Comments: