main = do args <- getArgs
          setCurrentDirectory "/var/cache/srcinst"
          updateGlobalLogger rootLoggerName (setLevel DEBUG)
          updateGlobalLogger "System.Cmd.Utils.pOpen3" (setLevel CRITICAL)
          case args of
               "install":xs -> mapM_ buildOrInstall xs
               _ -> syntaxError
main = do args <- getArgs
          setCurrentDirectory "/var/cache/srcinst"
          updateGlobalLogger rootLoggerName (setLevel DEBUG)
          updateGlobalLogger "System.Cmd.Utils.pOpen3" (setLevel CRITICAL)
          case args of
               "install":xs -> mapM_ buildOrInstall xs
               _ -> syntaxError
main = do args <- getArgs
          setCurrentDirectory "/var/cache/srcinst"
          updateGlobalLogger rootLoggerName (setLevel DEBUG)
          updateGlobalLogger "System.Cmd.Utils.pOpen3" (setLevel CRITICAL)
          case args of
               "install":xs -> mapM_ buildOrInstall xs
               _ -> syntaxError