From ea113cf57a7a09edfb3d9f991abc6f77507151bc Mon Sep 17 00:00:00 2001 From: Steffen Date: Tue, 10 Sep 2024 17:45:27 +0200 Subject: [PATCH] chore(login): limit number of suggestions for dummy development login for convenience --- src/Auth/Dummy.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Auth/Dummy.hs b/src/Auth/Dummy.hs index 06bf4985e..9360d9da6 100644 --- a/src/Auth/Dummy.hs +++ b/src/Auth/Dummy.hs @@ -34,7 +34,7 @@ dummyForm = do mr <- getMessageRender wreq (ciField & addDatalist userList) (fslpI MsgDummyIdent (mr MsgDummyIdentPlaceholder) & addAttr "autocomplete" "username" & addName PostLoginDummy) Nothing where - userList = fmap mkOptionList . runDB $ withReaderT projectBackend (map toOption <$> selectList [] [Asc UserIdent] :: ReaderT SqlBackend _ [Option UserIdent]) + userList = fmap mkOptionList . runDB $ withReaderT projectBackend (map toOption <$> selectList [UserId <=. UserKey 12] [Asc UserIdent] :: ReaderT SqlBackend _ [Option UserIdent]) toOption (Entity _ User{..}) = Option userDisplayName userIdent (CI.original userIdent) apDummy :: Text