Yesod：関数内の非網羅的パターンisAuthorized

Question

Yesod足場プロジェクトでは、私は新しいルートと新しいハンドラを追加しました。

29/Mar/2017:11:25:22 +0200 [Error#yesod-core] Foundation.hs:(137,5)-(144,45): Non-exhaustive patterns in function isAuthorized 
@(yesod-core-1.4.32-6HthMZNCl0sEMRz6GJ4QO1:Yesod.Core.Class.Yesod ./Yesod/Core/Class/Yesod.hs:693:5) 
29/Mar/2017:11:25:22 +0200 [Debug#SQL] SELECT `ident`,`password` FROM `user` WHERE `id`=? ; [PersistInt64 1] 

は、私はそれをどのように解決することができます：

私のエラーは、次のでしょうか？

Answer 1

権限に新しいルートを追加し、Foundation.hsファイルを変更する必要がある：

-- Routes not requiring authentication. 
isAuthorized (AuthR _) _ = return Authorized 
isAuthorized CommentR _ = return Authorized 
isAuthorized HomeR _ = return Authorized 
isAuthorized FaviconR _ = return Authorized 
isAuthorized RobotsR _ = return Authorized 
isAuthorized (StaticR _) _ = return Authorized 
isAuthorized TestR _ = return Authorized 

isAuthorized ProfileR _ = isAuthenticated