module StaleUpdater exposing (..)


type alias StaleUpdater =
    { stale : Bool
    , updating : Bool
    }


new : StaleUpdater
new =
    { stale = False
    , updating = False
    }


setStale : StaleUpdater -> StaleUpdater
setStale su =
    { su | stale = True }


startingUpdate : StaleUpdater -> StaleUpdater
startingUpdate su =
    { updating = True, stale = False }


needUpdate : StaleUpdater -> Bool
needUpdate su =
    su.stale && not su.updating


updatedOk : StaleUpdater -> StaleUpdater
updatedOk su =
    { su | updating = False }


updateFailed : StaleUpdater -> StaleUpdater
updateFailed su =
    { stale = True, updating = False }