haskell - 如何为 sum 类型编写镜头

Question

我有这样的类型:

data Problem =
   ProblemFoo Foo |
   ProblemBar Bar |
   ProblemBaz Baz

Foo , Bar和 Baz他们的名字都有一个镜头:

fooName :: Lens' Foo String
barName :: Lens' Bar String
bazName :: Lens' Baz String

现在我想创建一个镜头

problemName :: Lens' Problem String

显然我可以使用 lens 来写这个。构造函数和一对case语句，但有更好的方法吗？
outside 的文档谈到使用 Prism 作为一种一流的模式，这听起来很有启发性，但我不知道如何真正实现它。
(编辑:添加 Baz 案例，因为我的真正问题与 Either 不是同构的。)

Answer 1

你是对的，你可以用 outside 写它.首先，一些定义:

{-# LANGUAGE TemplateHaskell #-}

import Control.Lens

newtype Foo = Foo { _fooName :: String }
    deriving (Eq, Ord, Show)
makeLenses ''Foo

newtype Bar = Bar { _barName :: String }
    deriving (Eq, Ord, Show)
makeLenses ''Bar

newtype Baz = Baz { _bazName :: String }
    deriving (Eq, Ord, Show)
makeLenses ''Baz

data Problem =
    ProblemFoo Foo |
    ProblemBar Bar |
    ProblemBaz Baz
    deriving (Eq, Ord, Show)
makePrisms ''Problem

以上就是您在问题中描述的内容，除了我也在为 Problem 制作棱镜.
outside的类型(为了清楚起见，专门针对功能、简单的透镜和简单的棱镜)是:

outside :: Prism' s a -> Lens' (s -> r) (a -> r)

给定一个棱镜，例如sum 类型的情况， outside让您了解 sum 类型的函数，该函数针对处理案例的函数分支。指定函数的所有分支相当于处理所有情况:

problemName :: Problem -> String
problemName = error "Unhandled case in problemName"
    & outside _ProblemFoo .~ view fooName
    & outside _ProblemBar .~ view barName
    & outside _ProblemBaz .~ view bazName

这相当漂亮，除了需要添加 error由于缺乏合理的违约情况。 The total library只要您愿意进一步扭曲您的类型，就可以提供一种替代方案，并在此基础上进行详尽的检查:

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE DeriveGeneric #-}

import Control.Lens
import GHC.Generics (Generic)
import Lens.Family.Total    

-- etc.

-- This is needed for total's exhaustiveness check.
data Problem_ a b c =
    ProblemFoo a |
    ProblemBar b |
    ProblemBaz c
    deriving (Generic, Eq, Ord, Show)
makePrisms ''Problem_

instance (Empty a, Empty b, Empty c) => Empty (Problem_ a b c)

type Problem = Problem_ Foo Bar Baz

problemName :: Problem -> String
problemName = _case
    & on _ProblemFoo (view fooName)
    & on _ProblemBar (view barName)
    & on _ProblemBaz (view bazName)