haskell - 我怎样才能内联这个函数？

Question

我有两个函数，但其​​中一个函数只能从另一个函数调用，所以我想内联辅助函数。我的代码如下所示:

data PoS =  N | V | Adj | Adv | Phr

posEntity :: Parser PoS
posEntity = 
    do pos <- string "N." <|>
              string "V." <|>
              string "Adj." <|>
              string "Adv." <|>
              string "Phr."
       return (posToPoS pos)
    <?> "part of speech"

posToPoS pos
    | pos == "N." = N
    | pos == "V." = V
    | pos == "Adj." = Adj
    | pos == "Adv." = Adv
    | pos == "Phr." = Phr

显然 posToPoS 应该内联，但我不确定执行此类操作所需的语法。

谢谢!

Answer 1

您可以将定义中的字符串内联到 posToPos:

posToPoS "N." = N
posToPoS "V." = V
-- ... etc

或者，您可以直接在解析器中使用以下方法:

import Control.Applicative hiding (<|>)

posEntity :: Parser PoS
posEntity = 
  (string "N."   *> pure N   <|>
   string "V."   *> pure V   <|>
   string "Adj." *> pure Adj <|>
   string "Adv." *> pure Adv <|>
   string "Phr." *> pure Phr)<?> "part of speech"

(您可能需要在 string "foo"*> pure Foo 部分加上括号，我忘记了运算符优先级是什么)