diff options
Diffstat (limited to 'Assistant/WebApp/Configurators/Pairing.hs')
-rw-r--r-- | Assistant/WebApp/Configurators/Pairing.hs | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Assistant/WebApp/Configurators/Pairing.hs b/Assistant/WebApp/Configurators/Pairing.hs index e314b9526..d79752426 100644 --- a/Assistant/WebApp/Configurators/Pairing.hs +++ b/Assistant/WebApp/Configurators/Pairing.hs @@ -24,11 +24,14 @@ -} {-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes #-} +{-# LANGUAGE CPP #-} module Assistant.WebApp.Configurators.Pairing where import Assistant.Common +#ifdef WITH_PAIRING import Assistant.Pairing +#endif import Assistant.DaemonStatus import Utility.Verifiable import Assistant.WebApp @@ -46,6 +49,7 @@ import Data.Char import System.Posix.User getStartPairR :: Handler RepHtml +#ifdef WITH_PAIRING getStartPairR = promptSecret Nothing $ \rawsecret secret -> do hostname <- liftIO $ getHostname username <- liftIO $ getUserName @@ -57,17 +61,29 @@ getStartPairR = promptSecret Nothing $ \rawsecret secret -> do liftIO $ modifyDaemonStatus_ dstatus $ \s -> s { pairingInProgress = pip : pairingInProgress s } lift $ redirect $ InprogressPairR rawsecret +#else +getStartPairR = noPairing +#endif getInprogressPairR :: Text -> Handler RepHtml +#ifdef WITH_PAIRING getInprogressPairR secret = bootstrap (Just Config) $ do sideBarDisplay setTitle "Pairing" $(widgetFile "configurators/inprogresspairing") +#else +getInprogressPairR _ = noPairing +#endif getFinishPairR :: PairReq -> Handler RepHtml +#ifdef WITH_PAIRING getFinishPairR req = promptSecret (Just req) $ \_ secret -> do error "TODO" +#else +getFinishPairR _ = noPairing +#endif +#ifdef WITH_PAIRING data InputSecret = InputSecret { secretText :: Maybe Text } promptSecret :: Maybe PairReq -> (Text -> Secret -> Widget) -> Handler RepHtml @@ -128,3 +144,13 @@ sampleQuote = T.unwords getUserName :: IO String getUserName = userName <$> (getUserEntryForID =<< getEffectiveUserID) + +#else + +noPairing :: Handler RepHtml +noPairing = bootstrap (Just Config) $ do + sideBarDisplay + setTitle "Pairing" + $(widgetFile "configurators/nopairing") + +#endif |