getDateVar :: Text -> State EvalState [RefDate]
getDateVar
    = getVar [] getDateValue
    where getDateValue = maybe [] id . fromValue
getDateVar :: Text -> State EvalState [RefDate]
getDateVar
    = getVar [] getDateValue
    where getDateValue = maybe [] id . fromValue
getDateVar
    = getVar [] getDateValue
    where getDateValue = maybe [] id . fromValue