Inserir entidade no BD com chave estrangeira criada manualmente na biblioteca persistente (Haskell)

Tenho as seguintes entidades definidas com a biblioteca Persistent:

ClapEntity
    Id Text
    count Int
    userId UserEntityId
    deriving Show
UserEntity
    Id Text
    name Text
    email Text
    deriving Show

Quero armazenar novos dados ClapEntitydo ClapCreatemodelo:

newtype UserId = UserId {unUserId :: UUID}
  deriving (Eq, Show, ToJSON, FromJSON)

data ClapCreate = ClapCreate
  { userId :: UserId,
    count :: Int
  }
  deriving (Eq, Show)

-- Insert a new clap record into the database
storeClap :: ConnectionPool -> ClapCreate -> IO ClapId
storeClap pool clap = do
  let clapEntity = clapCreateToEntity clap
  key <- generateClapEntityKey
  cid <- runSql (insertKey key clapEntity) pool
  case toUUID (unClapEntityKey key) of
    Left err -> error $ show err
    Right uuid -> return $ ClapId uuid

clapCreateToEntity :: ClapCreate -> ClapEntity
clapCreateToEntity (ClapCreate (UserId uid) cnt) =
  ClapEntity
    cnt
    (UserEntityId (UUID.toText uid)) -- ISSUE HERE

Não sei como criar um novo UserEntityIda partir do dado uid:(

Além disso, não quero buscar a UserEntityprimeira e usar a chave retornada, só quero criar uma nova chave estrangeira. Estou esquecendo de algo...

Pergunta bônus

A propósito, como posso usar cidin case toUUID (unClapEntityKey key) ofline?