generic-lens получается при Duplicate.
с какой-то версии делаются
все работает (линзы 4.16.1) {-# language DuplicateRecordFields, TemplateHaskell , MultiParamTypeClasses, FunctionalDependencies #-} module Main where import Control.Lens import Control.Lens.TH data FooBar = FooBar { _foo :: Int, _bar :: Bool } deriving Show data BarFoo = BarFoo { _bar :: Bool, _foo :: Int } deriving Show makeFieldsNoPrefix ''FooBar makeFieldsNoPrefix ''BarFoo main :: IO () main = do print $ FooBar 2 False ^. foo print $ BarFoo True 3 ^. foo
Обсуждают сегодня