[print usage with incorrect startup options
Jason Dagit <dagit@codersbase.com>**20061011063408] {
hunk ./main.hs 64
-   (progName,[name]) <-getArgsAndInitialize
-   createAWindow "FRAG" name
-   mainLoop
+   (progName,names) <-getArgsAndInitialize
+   case names of
+    []     -> printUsage progName
+    [name] -> do createAWindow "FRAG" name
+                 mainLoop
+    _      -> printUsage progName
hunk ./main.hs 71
+printUsage n = do putStrLn $ "Usage: "   ++ n ++ " <level>"
+                  putStrLn $ "Example: " ++ n ++ " leveleg"
}