From 8d5e610b4caee7cb184294ca22f527f9f6934b82 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 14 May 2019 22:51:18 +0200
Subject: Much.API: init

---
 src/Much/State.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Much/State.hs')

diff --git a/src/Much/State.hs b/src/Much/State.hs
index a522e99..b09d544 100644
--- a/src/Much/State.hs
+++ b/src/Much/State.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleInstances #-}
 module Much.State where
 
 import Blessings.String (Blessings)
@@ -40,3 +41,6 @@ data ColorConfig = ColorConfig
     , boringMessage :: Blessings String -> Blessings String
     , tagMap :: [(T.Text, Blessings String -> Blessings String)]
     }
+
+instance Show (State -> IO ()) where
+    show = const "λ"
-- 
cgit v1.2.3