Improved binary support

digitallyinduced · Oct 15, 2020 · d9561e3 · d9561e3
1 parent c7ddd9b
commit d9561e3
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/IHP/ModelSupport.hs b/IHP/ModelSupport.hs
@@ -356,6 +356,14 @@ instance Default Day where
 instance Default UTCTime where
     def = UTCTime def 0
 
+instance Default (PG.Binary ByteString) where
+    def = PG.Binary ""
+
+instance Newtype.Newtype (PG.Binary payload) where
+    type O (PG.Binary payload) = payload
+    pack = PG.Binary
+    unpack (PG.Binary payload) = payload
+
 class Record model where
     newRecord :: model
 

diff --git a/IHP/SchemaCompiler.hs b/IHP/SchemaCompiler.hs
@@ -64,7 +64,7 @@ atomicType = \case
     PReal -> "Float"
     PDouble -> "Double"
     PDate -> "Data.Time.Calendar.Day"
-    PBinary -> "Binary"
+    PBinary -> "(Binary ByteString)"
     PTime -> "TimeOfDay"
     PCustomType theType -> tableNameToModelName theType
     PTimestamp -> "LocalTime"