How to determine MIME file type by content?

Haskell bindings to libmagic may be the solution to your problem. Here is an example.

import Magic
import System.Environment (getArgs)

main =  do
  magic <- magicOpen [MagicMime]
  (file:_) <- getArgs
  magicLoadDefault magic
  mime <- magicFile magic file
  putStrLn mime