Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (9 sloc) 290 Bytes
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"