refactor static route definition -- android webapp build fix

Incidentially should work around the last problem that prevented the webapp
building on Android. (Except for a few places I need to clean up after
hand-fixing the spliced TH code.)

Assistant/Threads/WebApp.hs

@@ -58,7 +58,7 @@ webAppThread assistantdata urlrenderer noannex listenhost postfirstrun onstartup
 		<$> pure assistantdata
 		<*> (pack <$> genRandomToken)
 		<*> getreldir
-		<*> pure $(embed "static")
+		<*> pure staticRoutes
 		<*> pure postfirstrun
 		<*> pure noannex
 		<*> pure listenhost

Assistant/WebApp/Types.hs

@@ -30,6 +30,9 @@ import Network.Socket (HostName)
 
 publicFiles "static"
 
+staticRoutes :: Static
+staticRoutes = $(embed "static")
+
 mkYesodData "WebApp" $(parseRoutesFile "Assistant/WebApp/routes")
 
 data WebApp = WebApp