1 files changed, 11 insertions, 0 deletions
diff --git a/src/QueryUserLib.hs b/src/QueryUserLib.hs
new file mode 100644
index 0000000..5677ac5
--- /dev/null
+++ b/src/QueryUserLib.hs
@@ -0,0 +1,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