diff options
author | stuebinm | 2021-11-14 03:09:50 +0100 |
---|---|---|
committer | stuebinm | 2021-11-14 03:09:50 +0100 |
commit | 52b73711fc21e121267318677840a54fbe174b10 (patch) | |
tree | c6e65874b376ca5d0712930796908c3e4f6490d7 /lib/Types.hs | |
parent | 24a0763b4b0a87b5abd488ebca67f4c5ff9b966d (diff) |
Functional jitsiRoomAdminTag adjustment
also yet another typeclass™, because why not?
Diffstat (limited to '')
-rw-r--r-- | lib/Types.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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" |