字符 \US 处出现词汇错误

Question

我需要用高阶函数重新制作这个函数。我不知道如何更改 lookupTitle 但其他我已经更改了。但我在 bookAuthors 上遇到了错误。

type Title = String
type Author = String
data Product = Book Title Author
                   | Video Author
                   | CD Title Integer Author
                   deriving (Eq,Show)

getTitle (Book title _ ) = title
getTitle (Video title  ) = title
getTitle (CD title _ _ ) = title

getTitles l = map (\x->getTitle x) l
lookupTitle _ [] = Nothing
lookupTitle x (y:ys) | getTitle y == x = Just y
                     | otherwise       = lookupTitle x ys

lookupTitles a b = map (\x->lookupTitle x b) a

 bookAuthors l = filter author l 
                       where author (Book _ _) = True
                                  author _ = False

为什么？

Answer 1

看起来像是缩进问题。 这编译没有错误。