embroidery-0.1: Example.hs

module Main (main) where

import Codec.Binary.Embroidery
import System( getArgs )

main :: IO ()
main = do args <- getArgs
          pattern <- importPES (head  args)
          case pattern of
                Right pes -> displayRendering pes

                Left  e -> do print "error"