From 92a67aaa55f5fee4a2b9a7357f1b9956a84cd188 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Thu, 1 Oct 2020 20:58:23 +0200
Subject: State: add options for attachment saving

use Data.Default for Much.State.State, Much.State.ColorConfig, Much.API.Config
refactor saveAttachment and openAttachment actions
---
 config/tv.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'config/tv.hs')

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
       }
-- 
cgit v1.2.3