main' :: IO ()
main' = do
    args <- getArgs 
    let pkey = args !! 0 
        pswd = args !! 1
        whost = args !! 2
    let fpaths = map (++ "_pgs_events.lhco.gz") . map (\x -> makeRunName psetup param (rsetupgen x)) $ [901..1000] 
    Just cr <- getCredential pkey pswd
    let cfg = WebDAVConfig { webdav_credential = cr, webdav_baseurl = whost }
    withFile "dummy.txt" WriteMode $ \h -> 
      runMaybeT $ do  
        r <- flip mapM fpaths $ \fpath -> do
          -- checkAndDownload cfg rdir fpath 
          {- analysis h fpath -}
          analysis fpath 
        liftIO $ print (combine r)
        return r
    return ()
main' :: IO ()
main' = do
    args <- getArgs 
    let pkey = args !! 0 
        pswd = args !! 1
        whost = args !! 2
    let fpaths = map (++ "_pgs_events.lhco.gz") . map (\x -> makeRunName psetup param (rsetupgen x)) $ [901..1000] 
    Just cr <- getCredential pkey pswd
    let cfg = WebDAVConfig { webdav_credential = cr, webdav_baseurl = whost }
    withFile "dummy.txt" WriteMode $ \h -> 
      runMaybeT $ do  
        r <- flip mapM fpaths $ \fpath -> do
          -- checkAndDownload cfg rdir fpath 
          {- analysis h fpath -}
          analysis fpath 
        liftIO $ print (combine r)
        return r
    return ()
main' = do
    args <- getArgs 
    let pkey = args !! 0 
        pswd = args !! 1
        whost = args !! 2
    let fpaths = map (++ "_pgs_events.lhco.gz") . map (\x -> makeRunName psetup param (rsetupgen x)) $ [901..1000] 
    Just cr <- getCredential pkey pswd
    let cfg = WebDAVConfig { webdav_credential = cr, webdav_baseurl = whost }
    withFile "dummy.txt" WriteMode $ \h -> 
      runMaybeT $ do  
        r <- flip mapM fpaths $ \fpath -> do
          -- checkAndDownload cfg rdir fpath 
          {- analysis h fpath -}
          analysis fpath 
        liftIO $ print (combine r)
        return r
    return ()