split-record 0.1.1 → 0.1.1.1
raw patch · 2 files changed
+19/−8 lines, 2 filesdep ~numeric-preludedep ~synthesizer-coredep ~transformers
Dependency ranges changed: numeric-prelude, synthesizer-core, transformers
Files
- split-record.cabal +17/−6
- src/Main.hs +2/−2
split-record.cabal view
@@ -1,5 +1,5 @@ Name: split-record-Version: 0.1.1+Version: 0.1.1.1 License: BSD3 License-File: LICENSE Author: Henning Thielemann <haskell@henning-thielemann.de>@@ -7,13 +7,24 @@ Homepage: http://code.haskell.org/~thielema/split-record/ Category: Sound Synopsis: Split a big audio file into pieces at positions of silence-Description: Split a big audio file into pieces at positions of silence+Description:+ Split a big audio file into pieces at positions of silence.+ You can use this to split a recording of multiple songs into single songs.+ .+ > $ split-record recording.wav "part%03d.wav"+ .+ You can also calculate split positions only. They are computed lazily.+ They can be loaded into Audacity for further fine tuning+ and to perform the actual split.+ For generating only labels, run:+ .+ > $ split-record recording.wav > labels.txt Tested-With: GHC==6.12.3 Cabal-Version: >=1.6 Build-Type: Simple Source-Repository this- Tag: 0.1.1+ Tag: 0.1.1.1 Type: darcs Location: http://code.haskell.org/~thielema/split-record/ @@ -26,12 +37,12 @@ Hs-Source-Dirs: src Build-Depends:- synthesizer-core >=0.5.1 && <0.6,+ synthesizer-core >=0.5.1 && <0.8, soxlib >=0.0 && <0.1, storablevector >=0.2.8 && <0.3,- transformers >=0.2 && <0.4,+ transformers >=0.2 && <0.5, utility-ht >=0.0.1 && <0.1,- numeric-prelude >=0.3 && <0.4,+ numeric-prelude >=0.3 && <0.5, base >=4 && <5 GHC-Options: -Wall -fwarn-tabs -fwarn-incomplete-record-updates
src/Main.hs view
@@ -16,7 +16,7 @@ import qualified Control.Monad.Trans.State as MS import Control.Monad (when, )-import Control.Arrow (Arrow, arr, (<<<), (^<<), )+import Control.Arrow (arr, (<<<), (^<<), ) import qualified Data.List.HT as ListHT import qualified Data.List as List@@ -380,7 +380,7 @@ pieceDurations params sig {- |-> runChop "in.wav" "%03d.wav" flags+> runChop flags "in.wav" "%03d.wav" -} runChop :: Flags -> FilePath -> FilePath -> IO () runChop flags input output =