diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-02 16:47:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-02 16:47:42 -0400 |
| commit | fbf3662c81fb7041491c8f7c36e078192dffd137 (patch) | |
| tree | c24c17db2f1da4c152d568c7e689faa689cf2018 /Assistant/Threads/WebApp.hs | |
| parent | ccf7553c4fbb4e39cb9cc3c31a0dd719da1a9dfe (diff) | |
--listen is not supported on Android
Diffstat (limited to 'Assistant/Threads/WebApp.hs')
| -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) |