Add missing imports

acowley · Mar 23, 2024 · b0c464b · b0c464b
1 parent a9e4cd2
commit b0c464b
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 2 deletions.
diff --git a/demo/VPlay.hs b/demo/VPlay.hs
@@ -7,6 +7,7 @@ import Codec.FFmpeg.Common
 import Codec.FFmpeg.Decode hiding (av_malloc)
 
 import Control.Concurrent.MVar (newMVar, takeMVar, putMVar)
+import Control.Monad.IO.Class (MonadIO)
 import Control.Monad.Except
 import Control.Monad.Loops
 import Control.Monad.Trans.Maybe

diff --git a/src/Codec/FFmpeg/Decode.hs b/src/Codec/FFmpeg/Decode.hs
@@ -14,6 +14,7 @@ import           Codec.FFmpeg.Types
 import           Control.Arrow             (first)
 import           Control.Monad             (void, when)
 import           Control.Monad.Except
+import           Control.Monad.IO.Class    (MonadIO(liftIO))
 import           Control.Monad.Trans.Maybe
 import           Foreign.C.String
 import           Foreign.C.Types

diff --git a/src/Codec/FFmpeg/Juicy.hs b/src/Codec/FFmpeg/Juicy.hs
@@ -9,8 +9,10 @@ import Codec.FFmpeg.Enums
 import Codec.FFmpeg.Internal.Linear (V2(..))
 import Codec.FFmpeg.Types
 import Control.Arrow (first)
-import Control.Monad ((>=>))
+import Control.Monad ((>=>), guard)
 import Control.Monad.Except
+import Control.Monad.IO.Class (MonadIO)
+import Control.Monad.Trans.Class (lift)
 import Control.Monad.Trans.Maybe
 import Data.Foldable (traverse_)
 import qualified Data.Vector.Storable as V

diff --git a/src/Codec/FFmpeg/Probe.hsc b/src/Codec/FFmpeg/Probe.hsc
@@ -18,6 +18,8 @@ module Codec.FFmpeg.Probe (
 
 import Control.Applicative ( Applicative )
 import Control.Monad.Catch ( MonadMask, finally )
+import Control.Monad ( liftM )
+import Control.Monad.IO.Class ( MonadIO )
 import Control.Monad.Reader
 import Control.Monad.Trans.Except
 import Data.Int ( Int64 )
@@ -173,4 +175,3 @@ foreign import ccall "avcodec_get_name"
 
 foreign import ccall "av_dict_get"
   av_dict_get :: AVDictionary -> CString -> Ptr () -> CInt -> IO (Ptr ())
-