Caesar cipher: Difference between revisions

→‎{{header|Haskell}}: Removed unnecessary imports.
(→‎{{header|Haskell}}: Now applies to all of stdin)
(→‎{{header|Haskell}}: Removed unnecessary imports.)
Line 1,645:
import System.Exit (die)
import System.Environment (getArgs)
import System.IO (hFlush, stdout)
 
main :: IO ()
main = runExceptT parseKey >>= \case
Left err -> die err
Right k -> putStrcaesar "Cipherk text:<$> "getContents >>= putStrLn
hFlush stdout >>
caesar k <$> getContents >>= putStrLn