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