src/QueryUserLib.hs


1
2
3
4
5
6
7
8
9
10
11

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