Stripping '\r' at the end of the string.

chomp.hs

module Main where

import qualified Data.ByteString.Char8 as C

chomp :: C.ByteString -> C.ByteString
chomp str = chompCRLF $ chompCRLF str
  where chompCRLF s =
          case C.unsnoc s of
            Nothing -> s
            Just (s_c, '\r') -> s_c
            Just (s_c, '\n') -> s_c
            Just _ -> s

main :: IO ()
main = do ln <- chomp <$> C.getLine
          C.putStrLn ln

-- EOF