Haskell：abort writeFile on error

Question

JSONを生成してファイルに出力するプログラムがあります。 JSONを生成する関数は、コード生成の途中で失敗する可能性があります。

JSON世代でエラーが発生した瞬間、その時点までに生成されたコードはファイルに書き込まれ、不完全/不正な出力ファイルになります。

悪い出力が書き込まれないようにする方法を理解しようとしています。あなたは、ファイルへの書き込みを開始する前に符号化関数が行わ確かにあるように、返される文字列の評価を強制したいかもしれません

main = do 
    let 
    output   = encodingfunction 
    print' (Just x) = writeFile "outputfile" output 
    print' _  = putStrLn "Encoding Failed Miserably" 
    print' ouput 
    return() 

encodingfunction :: Maybe String 

Answer 1

：ような何か。あなたはそれを印刷する前に長さを確認することができます。