Haskell：I/Oでエスケープするunsolicited unicode文字

Question

私は基本的にファイルをコピーするためのCLIユーティリティを持っています。

{-# LANGUAGE OverloadedStrings #-} 
... 
import Turtle 
... 
{- Command line parser -} 
-- | Represents command line options. 
data Settings = Settings 
    { sVerbose   :: Bool 
... 
    , sSrc    :: FilePath 
    , sDst    :: FilePath 
    } 
... 

トレースコード：

... 
-- | Extracts String From FilePath (unsafe and unofficial). 
-- No double quotes allowed in paths. 
strp :: FilePath -> String 
strp path = 
    let parts = splitOn "\"" (show path) 
in parts !! 1 
... 
    putStrLn "Наблюдаем юникод" 
    putStrLn $ strp (sSrc args) 
    putStrLn $ strp src 
... 

操作コード：

... 
src   <- realpath (sSrc args) 
... 

sSrcため

コンソール入力は、実際.

コンソール出力である：

Наблюдаем юникод 
./ 
/home/alexey/common/Downloads/UpDown/Books/Audio/_Nonfiction_/Moral Combat \8211 Good and Evil in World War II [Unabridged]/ 
1/26 /home/alexey/dir-dst/Moral Combat \\8211 Good and Evil in World War II [Unabridged]/01-Moral Combat \\8211 Part 01.mp3 

\8211はダッシュのようなものです。エスケープされたパスは、.のすぐ外にrealpathによって生成されます。私はその理由を知らない。それは特定のI/Oライブラリですか？コンパイラのオプションですか？ユニコード文字をエスケープしない唯一のものはputStrLnです。

元のパスをそのまま残しておきたいです。

UPD：当分の間、

import qualified Filesystem.Path.CurrentOS as FPS 
import Data.Either.Extra 
... 
-- | Extracts String From FilePath 
-- (good until deprecated system-filepath removed). 
strp :: FilePath -> String 
strp path = T.unpack $ fromRight "" (FPS.toText path) 

をそして、それは動作します：

Make it easy to extract a file path as Text from a FilePath

ハックは今きれいに見えます。それでも、私は強制的に逃げるという考えはまったくありません。 showとprintは一般的に非常に役立ち、しばしばエスケープすると役に立たなくなります。これをオフにする方法はありませんか？

Answer 1

サブストリング"\\8211"は、（let parts = splitOn "\"" (show path)）で生成され、realpathでは生成されません。おそらく、showへの呼び出しを削除する必要がありますが、トレースコードで何を実行するかは100％明確ではありません。