@@ -130,7 +130,7 @@ lookupDatatype ty = do
130 Nothing -> if S.member ty s then pure () else
130 Nothing -> if S.member ty s then pure () else
131 error $ "can't look up datatype: " <> show ty
131 error $ "can't look up datatype: " <> show ty
132 Just typ -> case references typ of
132 Just typ -> case references typ of
133− [] -> proceed ty typ -- >> sortDatatypesByDeps -- Pretty sure this was a bug
133+ [] -> proceed ty typ
134 xs -> traverse_ lookupDatatype xs >> proceed ty typ
134 xs -> traverse_ lookupDatatype xs >> proceed ty typ
136class Capitalizable t where
136class Capitalizable t where