| License | MIT |
|---|---|
| Stability | experimental |
| Safe Haskell | None |
| Language | Haskell2010 |
Polysemy.Video
Description
Experimental Video processing DSL for Polysemy.
Synopsis
- data ClipProcess m a where
- ExtractAudio :: Path b File -> [(Range, Path b' File)] -> ClipProcess m ()
- ExtractClips :: Path b File -> [(Range, Path b' File)] -> ClipProcess m ()
- ExtractFrames :: Path b File -> [(Time, Path b' File)] -> ClipProcess m ()
- extractAudio :: forall r b b'. MemberWithError ClipProcess r => Path b File -> [(Range, Path b' File)] -> Sem r ()
- extractClips :: forall r b b'. MemberWithError ClipProcess r => Path b File -> [(Range, Path b' File)] -> Sem r ()
- extractFrames :: forall r b b'. MemberWithError ClipProcess r => Path b File -> [(Time, Path b' File)] -> Sem r ()
- runFFMpegCli :: Member (Embed IO) effs => Sem (ClipProcess ': effs) a -> Sem effs a
- traceFFMpegArgs :: Members '[ClipProcess, Trace] r => Sem r a -> Sem r a
- ignoreClipProcess :: Sem (ClipProcess ': r) a -> Sem r a
Documentation
data ClipProcess m a where Source #
Effect for disecting a video file.
Since: 0.1.1.0
Constructors
| ExtractAudio :: Path b File -> [(Range, Path b' File)] -> ClipProcess m () | |
| ExtractClips :: Path b File -> [(Range, Path b' File)] -> ClipProcess m () | |
| ExtractFrames :: Path b File -> [(Time, Path b' File)] -> ClipProcess m () |
extractAudio :: forall r b b'. MemberWithError ClipProcess r => Path b File -> [(Range, Path b' File)] -> Sem r () Source #
extractClips :: forall r b b'. MemberWithError ClipProcess r => Path b File -> [(Range, Path b' File)] -> Sem r () Source #
extractFrames :: forall r b b'. MemberWithError ClipProcess r => Path b File -> [(Time, Path b' File)] -> Sem r () Source #
runFFMpegCli :: Member (Embed IO) effs => Sem (ClipProcess ': effs) a -> Sem effs a Source #
Interpret ClipProcess by running it against ffmpeg on the command line.
Since: 0.2.0.0
traceFFMpegArgs :: Members '[ClipProcess, Trace] r => Sem r a -> Sem r a Source #
Trace ClipProcess by printing out the arguments it would pass to ffmpeg.
Since: 0.2.0.0
ignoreClipProcess :: Sem (ClipProcess ': r) a -> Sem r a Source #
Noop the ClipProcess effect.
Since: 0.2.0.0