remove unique check from schema

This commit is contained in:
IC Rainbow
2024-01-04 13:43:40 +02:00
parent 05057d550f
commit 6108cb852e
5 changed files with 12 additions and 9 deletions
+1 -1
View File
@@ -6151,7 +6151,7 @@ getCreateActiveUser st testView = do
loop
Left e -> putStrLn ("database error " <> show e) >> exitFailure
Right user -> do
void . withTransaction st $ \db -> runExceptT $ createNoteFolder db user
void . withTransaction st $ \db -> runExceptT $ createNoteFolder db user >> createNoteFolder db user
pure user
selectUser :: [User] -> IO User
selectUser [user@User {userId}] = do