diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs index 3b29a3276..707a0a5e1 100644 --- a/src/Handler/Utils/Form.hs +++ b/src/Handler/Utils/Form.hs @@ -1453,8 +1453,7 @@ fsUniq mkUnique seed = "" { fsName = Just $ mkUnique seed } optionsPersistCryptoId :: forall backend a msg. - ( PersistQueryRead backend - , HasCryptoUUID (Key a) (HandlerFor UniWorX) + ( HasCryptoUUID (Key a) (HandlerFor UniWorX) , KnownSymbol (CryptoIDNamespace UUID (Key a)) , RenderMessage UniWorX msg , YesodPersistBackend UniWorX ~ backend