haskell pw prompt

pw.hs

module Main where
import System.IO
import Data.Char
import System.Console.ANSI

-- ord val of 10 is return key
getPW = getPW' "" where
  getPW' s = getChar >>= \x ->
    if ((ord x) == 10) then return s
    else cursorBackward 1 >> putStr "*" >> getPW' (s ++ [x])
    
main =
  hSetBuffering stdin NoBuffering >>
  hSetBuffering stdout NoBuffering >>
  putStrLn "pass:" >>
  getPW >>= \pw -> putStr pw >> clearScreen >> return ()