midi-simple-0.1.0.0: example/Reencode.hs

module Main where

import Sound.MIDI
import Pipes
import qualified Pipes.Prelude as P
import qualified Pipes.ByteString as B
import Pipes.Attoparsec
import System.IO
import System.Environment

main :: IO ()
main = do
    [fp] <- getArgs
    fd   <- openFile fp ReadMode
    fdo  <- openFile (fp ++ "-re") WriteMode

    runEffect $
        void (parsed midiParser (B.fromHandle fd)) 
            >-> P.map encodeMidi1' >-> B.toHandle fdo

    return ()