diff --git a/semantic-python/src/Language/Python/Core.hs b/semantic-python/src/Language/Python/Core.hs index a2e4c24ba..dc43d6dab 100644 --- a/semantic-python/src/Language/Python/Core.hs +++ b/semantic-python/src/Language/Python/Core.hs @@ -27,10 +27,8 @@ instance Compile Py.Module where deriving via CompileSum Py.CompoundStatement instance Compile Py.CompoundStatement -instance Compile Py.Block instance Compile Py.ClassDefinition instance Compile Py.DecoratedDefinition -instance Compile Py.Expression instance Compile Py.IfStatement where compile IfStatement{..} = If <$> compile condition <*> compile consequence <*> case alternative of @@ -39,6 +37,9 @@ instance Compile Py.IfStatement where where clause (Left (ElifClause{..})) rest = If <$> compile condition <*> compile consequence <*> rest clause (Right (ElseClause body)) _ = compile body +instance Compile Py.Block +instance Compile Py.Expression + instance Compile Py.ForStatement instance Compile Py.FunctionDefinition instance Compile Py.TryStatement