@@ -82,8 +82,7 @@ readBinary path =
8282 return (Just a)
8383
8484 Left (offset, message) ->
85− do Dir.copyFile path "bad.dat"
86− IO.hPutStrLn IO.stderr $ unlines $
85+ do IO.hPutStrLn IO.stderr $ unlines $
8786 [ "+-------------------------------------------------------------------------------"
8887 , "| Corrupt File: " ++ path
8988 , "| Byte Offset: " ++ show offset