emptyScore :: Integer -> T.Text -> UserScore
emptyScore myuid n = UserScore myuid n 0 0 0 (fromGregorian 0 0 0) 0 0
emptyScore :: Integer -> T.Text -> UserScore
emptyScore myuid n = UserScore myuid n 0 0 0 (fromGregorian 0 0 0) 0 0
emptyScore myuid n = UserScore myuid n 0 0 0 (fromGregorian 0 0 0) 0 0