2

を使用するときに行末から \r を削除しようとしていBS.getLineます。私は使用hSetNewlineModeしてみましたが、それは動作しますが、動作しgetLineませんBS.getLine:

import qualified Data.ByteString.Char8 as BS
import Data.ByteString (ByteString)
import System.IO (hSetNewlineMode, universalNewlineMode, stdin)

main = do
  hSetNewlineMode stdin universalNewlineMode
  -- s <- BS.pack `fmap` getLine   -- \r removed
  s <- BS.getLine                  -- \r not removed
  putStrLn $ show s

-- to test: perl -e 'print "this\r\n"' | runhaskell program.hs

他にすべきことはありますか？

4

1 に答える 1

2

のソースを見ると、ハードコードされていることがBS.hGetLineわかります。'\n'

[...]
-- find the end-of-line character, if there is one
findEOL r w raw
    | r == w = return w
    | otherwise =  do
        (c,r') <- readCharFromBuffer raw r
        if c == '\n'
            then return r -- NB. not r': don't include the '\n'
            else findEOL r' w raw
[...]

このヘルパーは、改行モードを考慮に入れたい場合、ハードコードされた値の代わりにhaInputNL提供された値から使用するように変更する必要があります。バグ レポートを提出するHandleことをお勧めします。

于 2014-03-14T23:26:31.360 に答える