added command rgl-none in Setup.hs

2009-05-14 20:12:41 +00:00
parent f3b02ad279
commit 99285c97f6
1 changed files with 2 additions and 0 deletions
--- a/Setup.hs
+++ b/Setup.hs
@@ -68,6 +68,8 @@ rglCommands =
       return ()
  , RGLCommand "parse"   False $ \mode args pkg lbi -> do
       mapM_ (gfc mode pkg lbi . parse) (optl langsParse args)
+  , RGLCommand "none"    False $ \mode args pkg lbi -> do
+       return ()
  ]
  where
    optl ls args = fromMaybe ls $ getOptLangs args