導入：なぜExitCodeが重要なのか
CLIツールを開発する際、単にプログラムを終了させるだけでは不十分です。シェルスクリプトやCI/CDパイプラインと連携するツールにおいて、プログラムが正常に完了したのか、あるいは何らかのエラーで失敗したのかをOSへ正しく伝えることは非常に重要です。終了ステータス（ExitCode）を適切に制御しないと、失敗したはずのジョブが「成功」と誤認され、後続の処理が壊れる原因となります。本稿では、HaskellにおけるExitCodeの正しい扱い方について解説します。
基礎知識：ExitCodeとプロセスの終了
OSにおいて、プロセスが終了する際には必ず数値（終了ステータス）が返されます。慣習として「0」は成功を、それ以外の正の整数（1〜255）はエラーを意味します。
Haskellの `System.Exit` モジュールには、プロセスを終了させるための関数が用意されています。特筆すべきは、これらの関数が内部的に「ExitException」という特殊な例外を発生させる点です。これにより、単なる `error` 関数による異常終了とは異なり、ランタイムが適切にスタックを巻き戻し、OSに対して明確なステータスコードを渡すことが可能になります。
実装：ExitFailureの活用
Haskellで異常終了を表現する場合、`exitWith (ExitFailure 1)` を使用するのが基本です。単にプログラムを止めるのではなく、文脈に応じた終了コードを使い分けることで、ユーザー（または呼び出し元のスクリプト）に対して「何が起きたか」をより正確に伝えられます。
サンプルプログラム
以下のコードは、ファイルが存在しない場合にエラーメッセージを標準エラー出力へ表示し、ExitCode 1で終了する実用的なCLIツールの一部です。
import System.Exit (exitWith, ExitCode(..))
import System.IO (hPutStrLn, stderr)
import System.Directory (doesFileExist)
-- 指定されたファイルが存在するか確認し、なければ終了する関数
checkFileExists :: FilePath -> IO ()
checkFileExists path = do
exists <- doesFileExist path
if exists
then putStrLn "ファイルが見つかりました。処理を続行します。"
else do
-- 標準エラー出力に原因を書き出すのがプロの作法
hPutStrLn stderr $ "エラー: ファイル " ++ path ++ " が存在しません。"
-- 異常終了を示すExitCode 1でプロセスを終了
exitWith (ExitFailure 1)
main :: IO ()
main = do
-- 存在しないファイルを指定してテスト
checkFileExists "config.yaml"
putStrLn "この行はエラーが発生した場合は実行されません。"
応用・注意点：現場での運用Tips
1. 標準エラー出力（stderr）の活用: エラー時のメッセージは必ず `stderr` に出力してください。`stdout` に混ぜてしまうと、パイプ処理で後続のプログラムにゴミデータが渡る原因になります。
2. 終了コードの設計: 規模の大きなツールを作る際は、ExitCodeに意味を持たせましょう（例: 1=設定ミス、2=ネットワークエラー、3=パーミッションエラーなど）。これにより、呼び出し側で `if [ $? -eq 2 ]; then ...` といった条件分岐が可能になります。
3. 例外処理とのバランス: `exitWith` は例外を投げます。そのため、`bracket` や `catch` を使ったリソース管理を行っている場合、終了処理がスキップされないよう注意が必要です。基本的には、アプリケーションの最上位レイヤー（main関数付近）で終了判定を行う設計が最も安全です。
コメント