用两个参数组合函数

Question

我遇到了一些让我今天失望的事情。我试图定义一个等同于Data.Text.commonPrefixes的函数，抛出除前缀之外的所有内容。

以下作品：

commonPrefix :: Text -> Text -> Maybe Text
commonPrefix a b = fmap firstTriple $ Text.commonPrefixes a b

firstTriple :: (a, b, c) -> a
firstTriple (a, _, _) = a

我最初尝试过这样做，但这并不起作用：

commonPrefix :: Text -> Text -> Maybe Text
commonPrefix = fmap firstTriple . Text.commonPrefixes

有没有办法将此功能定义为合成？