diff options
author | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-10-01 20:58:23 +0200 |
---|---|---|
committer | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-10-01 20:58:23 +0200 |
commit | 92a67aaa55f5fee4a2b9a7357f1b9956a84cd188 (patch) | |
tree | 6881b60bed64dc03aaf230a16b6762f3983a88ae /config/tv.hs | |
parent | eff6fdb05bd33f6842034f68e8cb4b83503fd5f3 (diff) |
State: add options for attachment saving
use Data.Default for Much.State.State, Much.State.ColorConfig, Much.API.Config
refactor saveAttachment and openAttachment actions
Diffstat (limited to 'config/tv.hs')
-rw-r--r-- | config/tv.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/config/tv.hs b/config/tv.hs index a00756d..a1e1d18 100644 --- a/config/tv.hs +++ b/config/tv.hs @@ -15,6 +15,7 @@ import Control.Monad.Trans.Except import Much.Core import Data.Aeson (eitherDecode') import Data.CaseInsensitive (CI) +import Data.Default import Data.Foldable (foldrM) import Data.List (intercalate) import Data.Maybe @@ -48,7 +49,7 @@ import qualified Notmuch.SearchResult as Notmuch main :: IO () main = - mainWithState emptyState + mainWithState def { keymap = myKeymap , mousemap = myMousemap } |