Skip to content

Commit

Permalink
Merge pull request #69 from matthewSorensen/master
Browse files Browse the repository at this point in the history
Switch order of case statement in options parser
  • Loading branch information
colah committed Nov 18, 2012
2 parents 42a97fc + 5a15405 commit b5f8d8f
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 deletions extopenscad.hs
Expand Up @@ -130,9 +130,6 @@ main = do
args' = if head args == "-xml-error" then tail args else args
writeIORef xmlErrorOn (head args == "-xml-error")
case length args' of
0 -> putStrLn $
"syntax: extopenscad inputfile.escad [outputfile.format]\n"
++ "eg. extopenscad input.escad out.stl"
1 -> do
f <- openFile (args' !! 0) ReadMode
content <- hGetContents f
Expand All @@ -144,4 +141,8 @@ main = do
executeAndExportSpecifiedTargetType
content (args' !! 1) (fileType $ args' !! 1)
hClose f
_ -> putStrLn $
"syntax: extopenscad inputfile.escad [outputfile.format]\n"
++ "eg. extopenscad input.escad out.stl"


0 comments on commit b5f8d8f

Please sign in to comment.