moat set instance from haskell set

MercuryTechnologies · Feb 13, 2024 · ac21c06 · ac21c06
1 parent a37fe36
commit ac21c06
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Moat/Class.hs b/src/Moat/Class.hs
@@ -17,6 +17,7 @@ import Data.List.NonEmpty (NonEmpty)
 import qualified Data.Map as M
 import qualified Data.Primitive as Prim
 import Data.Proxy (Proxy (..))
+import Data.Set (Set)
 import qualified Data.Text as TS
 import qualified Data.Text.Lazy as TL
 import Data.Time (UTCTime)
@@ -117,6 +118,9 @@ instance {-# OVERLAPPABLE #-} forall a. ToMoatType a => ToMoatType [a] where
 
 instance {-# OVERLAPPING #-} ToMoatType [Char] where toMoatType _ = Str
 
+instance forall a. ToMoatType a => ToMoatType (Set a) where
+  toMoatType _ = Set (toMoatType (Proxy @a))
+
 instance ToMoatType TL.Text where toMoatType _ = Str
 
 instance ToMoatType TS.Text where toMoatType _ = Str