haskell - 文字\ USの字句エラー

haskell filter

この関数を高次関数で作り直す必要があります。 lookupTitleを変更する方法はわかりませんが、もう1つはすでに変更しました。しかし、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


どうして?
答え
インデントの問題のようです。 Thisはエラーなしでコンパイルされます。
関連記事

haskell - Haskellにllvmバインディングをインストールする

haskell - Happstackで例外をキャッチ

haskell - ハスケル。 MongoDBドライバーまたはAeson文字セットの問題

haskell - ソースコードにアクセスせずにGHCiを使用してモジュールをロードする

haskell - yesodをインストールできません

haskell - このHappstackフォームコードの一部をリファクタリングする方法はありますか?

performance - collat​​zチェーンのパフォーマンスの問題

haskell - 独自のデータ型をモナド関数チェーンの戻り値として定義する方法は?

haskell - 型クラスによる関数型シグネチャのクリーンアップ

haskell - Haskellの可変ヒープ構造