From 5a15405b84837b62c10a9b0fc12598189e18bc82 Mon Sep 17 00:00:00 2001
From: Matthew Sorensen <matthew.d.sorensen@gmail.com>
Date: Mon, 12 Nov 2012 13:59:49 -0800
Subject: [PATCH] Make a case statement total

---
 extopenscad.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/extopenscad.hs b/extopenscad.hs
index d401306b..50babdcc 100644
--- a/extopenscad.hs
+++ b/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"
+