a Haskell script to detect garbled files on a shitty SD

example-usage.md

Compile then run

$ ghc --make -O2 suspicious.hs
$ find . -name "IMG_*" -exec './suspicious' '{}' \; > suspicious-list

Excerpt of the output in suspicious-list:

./IMG_1269.JPG ok
./IMG_2107.CR3 ok
./IMG_2280.JPG suspicious
./IMG_1140.CR3 ok
./IMG_1357.CR3 ok
./IMG_2168.JPG ok
./IMG_1445.CR3 ok
./IMG_2051.JPG ok
./IMG_1604.CR3 ok
./IMG_1315.JPG ok

suspicious.hs

module Main where

import System.Environment
import qualified Data.ByteString.Char8 as ByteString

main :: IO ()
main = do
  path:_ <- getArgs
  dat <- ByteString.take 100 <$> ByteString.readFile path
  if ByteString.all (=='\NUL') dat
  then putStrLn $ path <> " suspicious"
  else putStrLn $ path <> " ok"