exitCodeFileR ::
  FileR
  -> ExitCode
exitCodeFileR IsNotDicom =
  ExitFailure 1
exitCodeFileR ::
  FileR
  -> ExitCode
exitCodeFileR IsNotDicom =
  ExitFailure 1
exitCodeFileR IsNotDicom =
  ExitFailure 1