gpmf-0.1.1.2: app/Main.hs

module Main where

import qualified Data.ByteString          as BS
import qualified Data.ByteString.Lazy     as BL
import           System.Environment       (getArgs)

import           GoPro.Command.DEVCString
import           GoPro.DEVC
import           GoPro.GPMF

main :: IO ()
main = do
  [fn] <- getArgs
  either print (mapM_ (ps . maybe "" showDEVC . uncurry mkDEVC)) . parseGPMF =<< BS.readFile fn

  where
    ps s = BL.putStr s *> BL.putStr "\n"