summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorlocallycompact <>2020-10-17 12:24:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2020-10-17 12:24:00 (GMT)
commit429495d5be815bd5ba39bb81fe331c66c7961402 (patch)
tree52dbe895b0a54acb3e189500de30f4d8dc371a51
parentcd5f564d1f4c7092ee3b3ec91225d55f05478c84 (diff)
version 0.1.1.0HEAD0.1.1.0master
-rw-r--r--ChangeLog.md6
-rw-r--r--polysemy-video.cabal2
-rw-r--r--src/Polysemy/Video.hs12
3 files changed, 12 insertions, 8 deletions
diff --git a/ChangeLog.md b/ChangeLog.md
index 2424f03..3370309 100644
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -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.
diff --git a/polysemy-video.cabal b/polysemy-video.cabal
index 6c4e7ff..8a48b78 100644
--- a/polysemy-video.cabal
+++ b/polysemy-video.cabal
@@ -5,7 +5,7 @@ cabal-version: 1.12
-- 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
diff --git a/src/Polysemy/Video.hs b/src/Polysemy/Video.hs
index 3e8f4c2..2580fed 100644
--- a/src/Polysemy/Video.hs
+++ b/src/Polysemy/Video.hs
@@ -41,9 +41,9 @@ data Range = Range
-- |
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 :: Time -> [Text]
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.