packages feed

polysemy-video 0.1.0.1 → 0.1.1.0

raw patch · 3 files changed

+12/−8 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Polysemy.Video: [ExtractAudio] :: Path Rel File -> [(Range, Path Rel File)] -> ClipProcess m ()
+ Polysemy.Video: [ExtractAudio] :: Path b File -> [(Range, Path b' File)] -> ClipProcess m ()
- Polysemy.Video: [ExtractClips] :: Path Rel File -> [(Range, Path Rel File)] -> ClipProcess m ()
+ Polysemy.Video: [ExtractClips] :: Path b File -> [(Range, Path b' File)] -> ClipProcess m ()
- Polysemy.Video: [ExtractFrames] :: Path Rel File -> [(Time, Path Rel File)] -> ClipProcess m ()
+ Polysemy.Video: [ExtractFrames] :: Path b File -> [(Time, Path b' File)] -> ClipProcess m ()
- Polysemy.Video: extractAudio :: forall r_afLf. MemberWithError ClipProcess r_afLf => Path Rel File -> [(Range, Path Rel File)] -> Sem r_afLf ()
+ Polysemy.Video: extractAudio :: forall r_afNP b_Xbyu b'_Xbyw. MemberWithError ClipProcess r_afNP => Path b_Xbyu File -> [(Range, Path b'_Xbyw File)] -> Sem r_afNP ()
- Polysemy.Video: extractClips :: forall r_afLi. MemberWithError ClipProcess r_afLi => Path Rel File -> [(Range, Path Rel File)] -> Sem r_afLi ()
+ Polysemy.Video: extractClips :: forall r_afNS b_Xbyx b'_Xbyz. MemberWithError ClipProcess r_afNS => Path b_Xbyx File -> [(Range, Path b'_Xbyz File)] -> Sem r_afNS ()
- Polysemy.Video: extractFrames :: forall r_afLl. MemberWithError ClipProcess r_afLl => Path Rel File -> [(Time, Path Rel File)] -> Sem r_afLl ()
+ Polysemy.Video: extractFrames :: forall r_afNV b_XbyA b'_XbyC. MemberWithError ClipProcess r_afNV => Path b_XbyA File -> [(Time, Path b'_XbyC File)] -> Sem r_afNV ()
- Polysemy.Video: frameFF :: Time -> Path Rel File -> [Text]
+ Polysemy.Video: frameFF :: Time -> Path b File -> [Text]
- Polysemy.Video: inputFF :: Path Rel File -> [Text]
+ Polysemy.Video: inputFF :: Path b File -> [Text]
- Polysemy.Video: rangeFF :: Range -> Path Rel File -> [Text]
+ Polysemy.Video: rangeFF :: Range -> Path b File -> [Text]

Files

ChangeLog.md view
@@ -1,5 +1,9 @@ # Changelog for polysemy-video -## v0.0.1.0+## v0.1.1.0++* Support both `Abs` and `Rel`.++## v0.1.0.0  * Experimental DSL and interpreter.
polysemy-video.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           polysemy-video-version:        0.1.0.1+version:        0.1.1.0 description:    Experimental video processing DSL for polysemy. category:       video polysemy author:         Daniel Firth
src/Polysemy/Video.hs view
@@ -41,9 +41,9 @@  -- | data ClipProcess m a where-  ExtractAudio  :: Path Rel File -> [(Range, Path Rel File)] -> ClipProcess m ()-  ExtractClips  :: Path Rel File -> [(Range, Path Rel File)] -> ClipProcess m ()-  ExtractFrames :: Path Rel File -> [(Time, Path Rel File)]  -> ClipProcess m ()+  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 ()  makeSem ''ClipProcess @@ -56,15 +56,15 @@ seekFF t = ["-ss", timeFF t]  -- | "-ss <x> -to <y> <output>".-rangeFF :: Range -> Path Rel File -> [Text]+rangeFF :: Range -> Path b File -> [Text] rangeFF (Range f t) x = seekFF f ++ ["-to", timeFF t, toFilePathText x]  -- | "-ss <x> -vframes 1 <output>"-frameFF :: Time -> Path Rel File -> [Text]+frameFF :: Time -> Path b File -> [Text] frameFF t x = seekFF t ++ ["-vframes", "1", toFilePathText x]  -- | "-i <output>"-inputFF :: Path Rel File -> [Text]+inputFF :: Path b File -> [Text] inputFF x = ["-i", toFilePathText x]  -- | "ffmpeg -y" followed by some arguments.