This commit is contained in:
spaced4ndy
2024-06-26 16:25:13 +04:00
parent ef72df8014
commit 1f63740d56

View File

@@ -971,6 +971,8 @@ data ProtocolServer p = ProtocolServer
data AProtocolServer = forall p. ProtocolTypeI p => AProtocolServer (SProtocolType p) (ProtocolServer p)
deriving instance Show AProtocolServer
instance ProtocolTypeI p => IsString (ProtocolServer p) where
fromString = parseString strDecode