diff options
| -rw-r--r-- | Assistant/Threads/WebApp.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index f1ea24742..19300cf3c 100644 --- a/Assistant/Threads/WebApp.hs +++ b/Assistant/Threads/WebApp.hs @@ -5,7 +5,7 @@ - Licensed under the GNU GPL version 3 or higher. -} -{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes #-} +{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes, CPP #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Assistant.Threads.WebApp where @@ -54,6 +54,11 @@ webAppThread -> Maybe (Url -> FilePath -> IO ()) -> NamedThread webAppThread assistantdata urlrenderer noannex listenhost postfirstrun onstartup = thread $ liftIO $ do +#ifdef __ANDROID__ + when (isJust listenhost) $ + -- See Utility.WebApp + error "Sorry, --listen is not currently supported on Android" +#endif webapp <- WebApp <$> pure assistantdata <*> (pack <$> genRandomToken) |