nobodyParty, rootParty, staffParty :: Party -- TODO: load on startup from service module
nobodyParty =
   Party
         (PartyRow (Id (-1)) (T.pack "Everybody") Nothing Nothing Nothing Nothing)
         Nothing
         NotLoaded
         PermissionREAD
         Nothing
nobodyParty, rootParty, staffParty :: Party
nobodyParty =
   Party
         (PartyRow (Id (-1)) (T.pack "Everybody") Nothing Nothing Nothing Nothing)
         Nothing
         NotLoaded
         PermissionREAD
         Nothing
nobodyParty =
   Party
         (PartyRow (Id (-1)) (T.pack "Everybody") Nothing Nothing Nothing Nothing)
         Nothing
         NotLoaded
         PermissionREAD
         Nothing