我遇到了使用Control.Lens
的问题
使用-XTypeFamilies
GHC编译指示时的数据类型。
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
import Control.Lens (makeLenses)
class SomeClass t where
data SomeData t :: * -> *
data MyData = MyData Int
instance SomeClass MyData where
data SomeData MyData a = SomeData {_a :: a, _b :: a}
makeLenses ''SomeData
错误消息是:reifyDatatype: Use a value constructor to reify a data family instance
。
有没有办法克服它,也许使用Control.Lens
的一些功能?
最明智的事情就是自己定义这些镜片......这不是很难:
a, b :: Lens' (SomeData MyData a) a
a = lens _a (\s a' -> s{_a=a'})
b = lens _b (\s b' -> s{_b=b'})
甚至
a, b :: Functor f => (a -> f a) -> SomeData MyData a -> f (SomeData MyData a)
a f (SomeData a₀ b₀) = (`SomeData`b₀) <$> f a₀
b f (SomeData a₀ b₀) = SomeData a₀ <$> f b₀
...根本不使用镜头库中的任何东西,但与所有镜头组合器完全兼容。
tfMakeLenses
为关联的数据类型生成t a -> a -> t a
类型的setter。
有些地方可以改进这个功能,但它有效!
tfMakeLenses :: Name -> DecsQ
tfMakeLenses t = do
fieldNames <- tfFieldNames t
let associatedFunNames = associateFunNames fieldNames
return (map createLens associatedFunNames)
where createLens :: (Name, Name) -> Dec
createLens (funName, fieldName) =
let dtVar = mkName "dt"
valVar = mkName "newValue"
body = NormalB (LamE [VarP valVar] (RecUpdE (VarE dtVar) [(fieldName, VarE valVar)]))
in FunD funName [(Clause [VarP dtVar] body [])]
associateFunNames :: [Name] -> [(Name, Name)]
associateFunNames [] = []
associateFunNames (fieldName:xs) = ((mkName . tail . nameBase) fieldName, (mkName . nameBase) fieldName)
: associateFunNames xs
tfFieldNames t = do
FamilyI _ ((DataInstD _ _ _ _ ((RecC _ fields):_) _):_) <- reify t
let fieldNames = flip map fields $ \(name, _, _) -> name
return fieldNames