add missing type signature

This commit is contained in:
Joey Hess 2016-11-11 18:14:25 -04:00
parent 62cd2f10aa
commit 9e97dc7c46
No known key found for this signature in database
GPG key ID: C910D9222512E3C7

View file

@ -48,7 +48,8 @@ data WebApp = WebApp
}
mkYesodData "WebApp" $(parseRoutesFile "Assistant/WebApp/routes")
excludeStatic :: [Text] -> Bool
excludeStatic [] = True
excludeStatic (p:_) = p /= "static"