diff --git a/Assistant/WebApp/Types.hs b/Assistant/WebApp/Types.hs index 4dcaab93c9..1ab0fa306f 100644 --- a/Assistant/WebApp/Types.hs +++ b/Assistant/WebApp/Types.hs @@ -48,7 +48,8 @@ data WebApp = WebApp } mkYesodData "WebApp" $(parseRoutesFile "Assistant/WebApp/routes") - + +excludeStatic :: [Text] -> Bool excludeStatic [] = True excludeStatic (p:_) = p /= "static"