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

This commit is contained in:
Joey Hess 2013-12-03 13:41:23 -04:00
parent b5bd28ee64
commit 8c55003ae4
3 changed files with 14 additions and 3 deletions

View file

@ -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")