Как да извлека обект чрез `Int`, когато се очаква `Key` в постоянната библиотека на Haskell?

Използвам Persistent orm с scotty web framework.

Искам да получа стойност от db по id. Тези идентификатори идват при мен от GET заявка

Има функция "get", която взема променливата "Key Entity" и връща "Maybe Entity".

Използвам следния код, за да получа стойност от db

k <- keyFromValues $ [(PersistInt64 myOwnIntVarFromRequest)]
case k of
    Left _ -> {-some processing-}
    Right x -> do
    t <- liftIO . runDb $ get (x::Key Post) --Post is one of my models
    case t of
        Nothing -> {-processing-}
        Just x -> {-processing-}

Този код е изключително грозен. Но не знам как да го направя по-добре

Така че въпросът ми е как да получа променлива от тип "Key Entity", без да извиквам keyFromValues.

PS Съжалявам за лошия ми английски