Verified Commit fe58c64c authored by Camil Staps's avatar Camil Staps
Browse files

Fix for missing instance in GenDefault

parent e67503f0
......@@ -22,6 +22,8 @@ from TypeDef import :: Type, :: TypeRestriction
import qualified TypeParse as T
import GenDefault
gDefault{|RECORD|} fx = RECORD fx
gDefault{|Maybe|} _ = Nothing
instance docDescription ModuleDoc where docDescription d = d.ModuleDoc.description
......@@ -49,8 +51,6 @@ instance docFields TypeDoc where docFields d = d.TypeDoc.fields
instance docConstructors TypeDoc where docConstructors d = d.TypeDoc.constructors
instance docRepresentation TypeDoc where docRepresentation d = d.TypeDoc.representation
gDefault{|Maybe|} _ = Nothing
derive gDefault Type, TypeRestriction, ModuleDoc, FunctionDoc, ClassMemberDoc,
ConstructorDoc, ClassDoc, TypeDoc
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment