@@ -28,14 +28,6 @@ import qualified Data.Text as Text
2828newtype ReadShow a = ReadShow { fromReadShow :: a }
2929
3030
31−-- | The 'PrimitiveType' instance for 'ReadShow' allows you to serialize a type using
32−-- Haskell's 'Read' and 'Show' instances:
33−--
34−-- @
35−-- data Color = Red | Green | Blue
36−-- deriving (Read, Show)
37−-- deriving PrimitiveType via ReadShow Color
38−-- @
3931instance (Read a, Show a) => DBType (ReadShow a) where
4032 typeInformation = parseTypeInformation parser printer typeInformation
4133 where