From 59205df9d9f5a2fda7bcbb193ba4acfec14129be Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Wed, 31 Jan 2024 14:46:13 +0200
Subject: [PATCH] update backend default permissions to non-OwnProfile

---
 backend/src/Datarekisteri/Backend.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/backend/src/Datarekisteri/Backend.hs b/backend/src/Datarekisteri/Backend.hs
index 0ff2f3e..b5e2d48 100644
--- a/backend/src/Datarekisteri/Backend.hs
+++ b/backend/src/Datarekisteri/Backend.hs
@@ -214,7 +214,9 @@ instance MonadRandom APIM where
 
 instance MonadPermissions APIM where
     currentPermissions = asks statePermissions
-    defaultPermissions = pure $ Permissions $ fromList [(OwnProfile, ReadWrite)]
+    defaultPermissions =
+        maybe mempty (\user -> Permissions $ fromList [(Profile user, ReadWrite)]) <$>
+            asks stateCurrentUser
 
 runAPIM :: Config -> APIM a -> IO a
 runAPIM config (APIM m) = runReaderT m RequestState