updateIndexFileInfo :: CoreFeature
                    -> StateComponent AcidState SecurityState
                    -> IO ()
updateIndexFileInfo coreFeature securityState = do
    IndexTarballInfo{..}  <- queryGetIndexTarballInfo coreFeature
    let !tarGzFileInfo = fileInfo indexTarballIncremGz
        !tarFileInfo   = fileInfo indexTarballIncremUn
    now <- getCurrentTime
    updateState securityState (SetTarGzFileInfo tarGzFileInfo tarFileInfo now)
updateIndexFileInfo :: CoreFeature
                    -> StateComponent AcidState SecurityState
                    -> IO ()
updateIndexFileInfo coreFeature securityState = do
    IndexTarballInfo{..}  <- queryGetIndexTarballInfo coreFeature
    let !tarGzFileInfo = fileInfo indexTarballIncremGz
        !tarFileInfo   = fileInfo indexTarballIncremUn
    now <- getCurrentTime
    updateState securityState (SetTarGzFileInfo tarGzFileInfo tarFileInfo now)
updateIndexFileInfo coreFeature securityState = do
    IndexTarballInfo{..}  <- queryGetIndexTarballInfo coreFeature
    let !tarGzFileInfo = fileInfo indexTarballIncremGz
        !tarFileInfo   = fileInfo indexTarballIncremUn
    now <- getCurrentTime
    updateState securityState (SetTarGzFileInfo tarGzFileInfo tarFileInfo now)