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
---
 src/Much/API/Config.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/Much/API')

diff --git a/src/Much/API/Config.hs b/src/Much/API/Config.hs
index 2e3b1cc..0a45068 100644
--- a/src/Much/API/Config.hs
+++ b/src/Much/API/Config.hs
@@ -1,11 +1,13 @@
 module Much.API.Config where
 
+import Data.Default
+
 data Config = Config
     { socketPath :: FilePath
     }
 
-emptyConfig :: Config
-emptyConfig =
+instance Default Config where
+  def =
     Config
       { socketPath = "/tmp/much.api.sock"
       }
-- 
cgit v1.2.3