Magick.hs

module Reanimate.Driver.Magick
  ( magickCmd
  ) where

import System.IO.Unsafe (unsafePerformIO)
import System.Directory (findExecutable)

-- |The name of the ImageMagick command. On Unix-like operating systems, the
-- command \'convert\' does not conflict with the name of other commands. On
-- Windows, ImageMagick version 7 is readily available, the command \'magick\'
-- should be present, and is preferred over \'convert\'. If it is not present,
-- \'convert\' is assumed to be the relevant command.
magickCmd :: String
-- The use of 'unsafeperformIO' is justified on the basis that if \'magick\' is
-- found once, it will always be present.
magickCmd = unsafePerformIO $ do
  mPath <- findExecutable "magick"
  pure $ maybe "convert" (const "magick") mPath