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