don't shown non-working file browser opening UI on android

Assistant/WebApp/Page.hs

@@ -5,7 +5,7 @@
  - Licensed under the GNU AGPL version 3 or higher.
  -}
 
-{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes #-}
+{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes, CPP #-}
 
 module Assistant.WebApp.Page where
 
@@ -73,5 +73,12 @@ customPage' with_longpolling navbaritem content = do
   where
 	navdetails i = (navBarName i, navBarRoute i, Just i == navbaritem)
 
+hasFileBrowser :: Bool
+#ifdef ANDROID_SPLICES
+hasFileBrowser = False
+#else
+hasFileBrowser = True
+#endif
+
 controlMenu :: Widget
 controlMenu = $(widgetFile "controlmenu")

doc/bugs/Android:_Clocking_on___34__Files__34___in_the_Dashboard_seems_to_do_nothing.mdwn

@@ -19,3 +19,6 @@ last Android build from Nov 18 2013
 
 # End of transcript or log.
 """]]
+
+> Removed the UI element unless and until a file browser is available on
+> Android. [[done]] --[[Joey]]

templates/page.hamlet

@@ -10,8 +10,9 @@
               #{name}
       $maybe reldir <- relDir webapp
         <ul .nav .pull-right>
-          <li>
-            ^{actionButton FileBrowserR (Just "Files") (Just "Click to open a file browser") "" "icon-folder-open icon-white"}
+          $if hasFileBrowser
+            <li>
+              ^{actionButton FileBrowserR (Just "Files") (Just "Click to open a file browser") "" "icon-folder-open icon-white"}
           <li .dropdown #menu1>
             <a .dropdown-toggle data-toggle="dropdown" href="#menu1">
               Repository: #{reldir}