Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
haskell
polysemy-video
Commits
d80426a3
Commit
d80426a3
authored
4 years ago
by
Daniel Firth
Browse files
Options
Download
Email Patches
Plain Diff
Support both Abs and Rel
parent
4d7dc260
master
staging/v0.2.0.0
v0.2.0.0
v0.1.2.0
v0.1.1.0
No related merge requests found
Pipeline
#128
failed with stages
in 1 second
Changes
4
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
13 additions
and
9 deletions
+13
-9
ChangeLog.md
ChangeLog.md
+5
-1
package.yaml
package.yaml
+1
-1
polysemy-video.cabal
polysemy-video.cabal
+1
-1
src/Polysemy/Video.hs
src/Polysemy/Video.hs
+6
-6
No files found.
ChangeLog.md
View file @
d80426a3
# 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.
This diff is collapsed.
Click to expand it.
package.yaml
View file @
d80426a3
name
:
polysemy-video
version
:
0.1.
0.1
version
:
0.1.
1.0
git
:
"
https://gitlab.com/homotopic-tech/polysemy-video"
license
:
MIT
author
:
"
Daniel
Firth"
...
...
This diff is collapsed.
Click to expand it.
polysemy-video.cabal
View file @
d80426a3
...
...
@@ -5,7 +5,7 @@ cabal-version: 1.12
-- see: https://github.com/sol/hpack
name: polysemy-video
version: 0.1.0.
0
version: 0.1.0.
1
description: Experimental video processing DSL for polysemy.
category: video polysemy
author: Daniel Firth
...
...
This diff is collapsed.
Click to expand it.
src/Polysemy/Video.hs
View file @
d80426a3
...
...
@@ -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.
...
...
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment
Menu
Projects
Groups
Snippets
Help