Я не думаю, что это может быть сделано автоматически, но писать некоторые линзы вручную не так уж трудно в данном конкретном случае:
{-# LANGUAGE GADTs #-}
import Control.Lens
data D a b where
D :: (Ord a, Ord b) => !a -> !b -> D a b
field1 :: Lens' (D a b) a
field1 f (D x y) = fmap (\x' -> D x' y) (f x)
field2 :: Lens' (D a b) b
field2 f (D x y) = fmap (\y' -> D x y') (f y)
{- If you want type-changing lenses, you can also use these signatures.
- Note that then the target type Ord constraint has to escape.
field1 :: (Ord a2) => Lens (D a1 b) (D a2 b) a1 a2
field2 :: (Ord b2) => Lens (D a b1) (D a b2) b1 b2
-}
Там, кажется, несколько соответствующих GitHub issue, в котором Kmett утверждает, что они не могут создавать линзы для экзистенциально квантованных полей.
Я должен спросить: можно ли написать их вручную? – dfeuer