diff options
| author | Raúl Benencia <rul@kalgan.cc> | 2013-09-11 21:30:59 -0300 |
|---|---|---|
| committer | Raúl Benencia <rul@kalgan.cc> | 2013-09-11 21:30:59 -0300 |
| commit | fbc1636c060b1a6cba31fb9c414cf663c55d2b77 (patch) | |
| tree | aa91230edfef492db51b94b7297e0dae500904a9 /src/Lazymail/Handlers.hs | |
| parent | 13ce94032bf0e7891bd1c2f4c94a857226ec66ef (diff) | |
Solve markAsRead bug
Diffstat (limited to 'src/Lazymail/Handlers.hs')
| -rw-r--r-- | src/Lazymail/Handlers.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Lazymail/Handlers.hs b/src/Lazymail/Handlers.hs index 15dbf4c..15fd523 100644 --- a/src/Lazymail/Handlers.hs +++ b/src/Lazymail/Handlers.hs @@ -38,7 +38,7 @@ previousMode' MaildirMode = (=<<) put $ get >>= \st -> return st { exitRequested previousMode' EmailMode = do st <- get if (triggerUpdateIn . indexState $ st) - then advanceMode >> solveIndexUpdate + then advanceMode' MaildirMode >> solveIndexUpdate else put $ st { mode = IndexMode } previousMode' IndexMode = do st <- get |