From c27c55fad9cd1fbf0d27ebcd919b78f59c4cbbb0 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Mon, 12 Aug 2024 14:11:40 +0200
Subject: feat: critical battery blinks

---
 app/Pretty.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'app/Pretty.hs')

diff --git a/app/Pretty.hs b/app/Pretty.hs
index d2988a9..8621a41 100644
--- a/app/Pretty.hs
+++ b/app/Pretty.hs
@@ -24,6 +24,9 @@ data Doc
 class Pretty a where
   pretty :: a -> Doc
 
+instance Pretty Doc where
+  pretty = id
+
 instance Pretty Char where
   pretty = pretty . (: [])
 
-- 
cgit v1.2.3