← Back to branch summary

~idiii-dev/idiii/trunk

« back to all changes in this revision

Viewing changes to tools/CopyTag.hs

  • Committer: Bart Massey
  • Date: 2015-11-01 18:06:47 UTC
  • Revision ID: bart@bartfan.po8.org-20151101180647-dxy4qdcv9wcqn6ij
updated tools; added Makefile

Show diffs side-by-side

added added

removed removed

Lines of Context:
tools/CopyTag.hs
11
11
main :: IO ()
12
12
main = do
13
13
  [ source, target, destPadding ] <- getArgs
14
 
  tag' <- readTag source
15
 
  let tag = fromJust tag'
16
 
  writeTag target $ (padding ^= read destPadding) tag
 
14
  tag <- readTag source
 
15
  writeTag target $ (padding ^= read destPadding) $ fromJust tag