{-# LANGUAGE ForeignFunctionInterface, FlexibleContexts #-}
module Codec.FFmpeg (
initFFmpeg, setLogLevel,
imageReader, imageReaderTime,
imageReaderT, imageReaderTimeT,
EncodingParams(..), defaultParams, imageWriter,
module Codec.FFmpeg.Types,
module Codec.FFmpeg.Enums
)where
import Codec.FFmpeg.Encode
import Codec.FFmpeg.Enums
import Codec.FFmpeg.Juicy
import Codec.FFmpeg.Types
import Foreign.C.Types (CInt(..))
foreign import ccall "av_register_all" av_register_all :: IO ()
foreign import ccall "avdevice_register_all" avdevice_register_all :: IO ()
foreign import ccall "av_log_set_level" av_log_set_level :: CInt -> IO ()
setLogLevel :: LogLevel -> IO ()
setLogLevel :: LogLevel -> IO ()
setLogLevel (LogLevel l :: CInt
l) = CInt -> IO ()
av_log_set_level CInt
l
initFFmpeg :: IO ()
initFFmpeg :: IO ()
initFFmpeg = IO ()
av_register_all IO () -> IO () -> IO ()
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>> IO ()
avdevice_register_all IO () -> IO () -> IO ()
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>> LogLevel -> IO ()
setLogLevel LogLevel
avLogQuiet