From 52b73711fc21e121267318677840a54fbe174b10 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 14 Nov 2021 03:09:50 +0100
Subject: Functional jitsiRoomAdminTag adjustment

also yet another typeclass™, because why not?
---
 lib/Types.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib/Types.hs')

diff --git a/lib/Types.hs b/lib/Types.hs
index 00f0ee7..0d35432 100644
--- a/lib/Types.hs
+++ b/lib/Types.hs
@@ -10,7 +10,8 @@
 module Types where
 
 import           Control.Monad.Trans.Maybe ()
-import           Data.Aeson                (ToJSON (toJSON), ToJSONKey, (.=))
+import           Data.Aeson                (FromJSON, ToJSON (toJSON),
+                                            ToJSONKey, (.=))
 import           Data.Text                 (Text)
 import           GHC.Generics              (Generic)
 
@@ -27,7 +28,7 @@ import           WithCli.Pure              (Argument (argumentType, parseArgumen
 -- | Levels of errors and warnings, collectively called
 -- "Hints" until I can think of some better name
 data Level = Info | Suggestion | Warning | Forbidden | Error | Fatal
-  deriving (Show, Generic, Ord, Eq, ToJSON)
+  deriving (Show, Generic, Ord, Eq, ToJSON, FromJSON)
 
 instance Argument Level where
   argumentType Proxy = "Lint Level"
-- 
cgit v1.2.3