isDicomFile ::
  FilePath
  -> IO Bool
isDicomFile p =
  do h <- openFile p ReadMode
     hSeek h AbsoluteSeek 128
     d <- hChar4 h
     hClose h
     return (isDicom d)
isDicomFile ::
  FilePath
  -> IO Bool
isDicomFile p =
  do h <- openFile p ReadMode
     hSeek h AbsoluteSeek 128
     d <- hChar4 h
     hClose h
     return (isDicom d)
isDicomFile p =
  do h <- openFile p ReadMode
     hSeek h AbsoluteSeek 128
     d <- hChar4 h
     hClose h
     return (isDicom d)