add showSqlTypeWithSchema for types in a schema

- similar to enumMapperWithSchema
- enums needs an instance of IsSqlType if used with an array
- enums can have a schema

src/Opaleye/Internal/PGTypes.hs

@@ -15,6 +15,8 @@ import qualified Data.Text.Lazy.Encoding as LTextEncoding
 import qualified Data.ByteString as SByteString
 import qualified Data.ByteString.Lazy as LByteString
 import qualified Data.Time.Format.ISO8601.Compat as Time
+import Text.PrettyPrint.HughesPJ ((<>), doubleQuotes, render, text)
+import Prelude hiding ((<>))
 
 unsafePgFormatTime :: Time.ISO8601 t => HPQ.Name -> t -> Field c
 unsafePgFormatTime typeName = castToType typeName . format
@@ -37,5 +39,8 @@ lazyDecodeUtf8 = LText.unpack . LTextEncoding.decodeUtf8
 
 class IsSqlType sqlType where
   showSqlType :: proxy sqlType -> String
+  showSqlType sqlType = render (doubleQuotes (text schema) <> text "." <> doubleQuotes (text type_))
+                    where (schema, type_) = showSqlTypeWithSchema sqlType
+  showSqlTypeWithSchema :: proxy sqlType -> (String, String)
 
-  {-# MINIMAL showSqlType #-}
+  {-# MINIMAL showSqlType | showSqlTypeWithSchema #-}

src/Opaleye/SqlTypes.hs

@@ -89,7 +89,7 @@ module Opaleye.SqlTypes (
   SqlUuid,
   SqlBytea,
   -- * @IsSqlType@
-  P.IsSqlType(P.showSqlType),
+  P.IsSqlType(P.showSqlType, P.showSqlTypeWithSchema),
   ) where
 
 import qualified Opaleye.Field   as F