Permalink
Browse files

fixup! [AD-445] Do not use UiFace to disable modality

  • Loading branch information...
gromakovsky committed Jan 10, 2019
1 parent 9047610 commit aa4def6439be2bd2fddd13a899f6f9a006552cba
@@ -119,7 +119,7 @@ initApp features logging putPass langFace historyFace =
_ -> pass

let addHandlerNoModal name = addWidgetEventHandler name $ \case
WidgetEventNoModal -> do
WidgetEventModalExited -> do
assignWidgetLens (Lens appModalL) NoModal
resetAppFocus
_ -> pass
@@ -173,7 +173,7 @@ data WidgetEvent
| WidgetEventEditLocationChanged
| WidgetEventListSelected Int
| WidgetEventCheckboxToggled
| WidgetEventNoModal
| WidgetEventModalExited

-- | Result of handling a UI event
--
@@ -157,7 +157,7 @@ performCancel =

closeDialog :: WidgetEventM ConfirmMnemonicWidgetState p ()
closeDialog = do
widgetEvent WidgetEventNoModal
widgetEvent WidgetEventModalExited
zoomWidgetState $ do
confirmMnemonicWidgetContentL .= ""
confirmMnemonicWidgetValueL .= []
@@ -198,7 +198,7 @@ performCancel =

closeDialog :: WidgetEventM ConfirmRemoveWidgetState p ()
closeDialog = do
widgetEvent WidgetEventNoModal
widgetEvent WidgetEventModalExited
zoomWidgetState $ do
confirmRemoveWidgetDelRequestL .= Nothing
confirmRemoveWidgetCheckL .= False
@@ -121,7 +121,7 @@ performCancel =

closeDialog :: WidgetEventM ConfirmSendWidgetState p ()
closeDialog = do
widgetEvent WidgetEventNoModal
widgetEvent WidgetEventModalExited
zoomWidgetState $ do
confirmSendWidgetResultVarL .= Nothing
confirmSendWidgetOutputListL .= []
@@ -76,7 +76,7 @@ performContinue = do
PasswordWidgetState{..} <- getWidgetState
whenJust passwordWidgetRecipient $ \(walletId, cEvent) -> do
liftIO $ passwordWidgetPutPassword walletId passwordWidgetContent $ Just cEvent
widgetEvent WidgetEventNoModal
widgetEvent WidgetEventModalExited
zoomWidgetState $ do
passwordWidgetRecipientL .= Nothing
passwordWidgetContentL .= ""

0 comments on commit aa4def6

Please sign in to comment.