@@ -257,6 +257,7 @@ import Control.Category
257257import Control.DeepSeq
258258import Data.ByteString (ByteString)
259259import Data.ByteString.Lazy (toStrict)
260+import ByteString.StrictBuilder (builderBytes)
260261import Data.Function ((&))
261262import Data.Kind
262263import Data.Semigroup hiding (All)
@@ -2580,3 +2581,11 @@ instance Literal Float where literal = fromRational . toRational
25802581instance Literal Double where literal = fromRational . toRational
25812582instance Literal Text where literal = fromString . Text.unpack
25822583instance Literal Lazy.Text where literal = fromString . Lazy.Text.unpack
2584+instance ToParam (Enumerated enum) (PG (Enumerated enum))
2585+ => Literal (Enumerated enum) where
2586+ literal
2587+ = UnsafeExpression
2588+ . singleQuotedUtf8
2589+ . builderBytes
2590+ . unK
2591+ . toParam @(Enumerated enum) @(PG (Enumerated enum))