diff --git a/Setup.hs b/Setup.hs
index e08ce7479..512a245c5 100644
--- 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