module QueryUserLib (QueryUser, makeQueryUser) where

data QueryUser = QueryUser
  { localpart :: String
      , user_id :: String
      , display_name :: String
      , is_guest :: Bool
  } deriving (Eq, Show)

makeQueryUser :: String -> String -> String -> Bool -> QueryUser
makeQueryUser = QueryUser