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

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