Browse files

Merge pull request #69 from matthewSorensen/master

Switch order of case statement in options parser
  • Loading branch information...
2 parents 42a97fc + 5a15405 commit b5f8d8f9811f486cc79865b79b6d53b649689924 @colah committed Nov 18, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 extopenscad.hs
View
7 extopenscad.hs
@@ -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
@@ -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.