@@ -7,6 +7,7 @@ import ProjectM36.Base
77import ProjectM36.ConcreteTypeRep
88import ProjectM36.Error
99import ProjectM36.DataTypes.Primitive
10+import ProjectM36.IsomorphicSchema
1011
1112import Control.Monad
1213import Data.Aeson
@@ -62,6 +63,12 @@ instance FromJSON TypeConstructorArg
6263instance ToJSON SerialRep
6364instance FromJSON SerialRep
6465
66+instance ToJSON SchemaExpr
67+instance FromJSON SchemaExpr
68+
69+instance ToJSON SchemaIsomorph
70+instance FromJSON SchemaIsomorph
71+
6572instance FromJSON ConcreteTypeRep where
6673 parseJSON = withObject "ctr" $ \o -> do
6774 serialRep <- o .: "serialrep"