From f8b26f8699d391d1558d95ccd907133403cb2b73 Mon Sep 17 00:00:00 2001 From: adambrangenberg Date: Sun, 14 Sep 2025 11:52:21 +0200 Subject: login works, ig. Will remake everything now --- src/PostLoginsResponseLib.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 src/PostLoginsResponseLib.hs (limited to 'src/PostLoginsResponseLib.hs') diff --git a/src/PostLoginsResponseLib.hs b/src/PostLoginsResponseLib.hs new file mode 100644 index 0000000..51617b1 --- /dev/null +++ b/src/PostLoginsResponseLib.hs @@ -0,0 +1,10 @@ +module PostLoginsResponseLib (PostLoginsResponse, makePostLoginsResponse) where + +data PostLoginsResponse = PostLoginsResponse + { access_token :: String + , device_id :: String + , user_id :: String + } deriving (Eq, Show) + +makePostLoginsResponse :: String -> String -> String -> PostLoginsResponse +makePostLoginsResponse = PostLoginsResponse -- cgit v1.2.3