From 19a1fa9cfc525aeb2c477323f48d224e05322897 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Mon, 23 Sep 2019 12:42:08 -0400 Subject: [PATCH] More cleanup. --- semantic-python/src/Language/Python/Core.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/semantic-python/src/Language/Python/Core.hs b/semantic-python/src/Language/Python/Core.hs index ef0b67795..9581bd1e8 100644 --- a/semantic-python/src/Language/Python/Core.hs +++ b/semantic-python/src/Language/Python/Core.hs @@ -1,7 +1,7 @@ {-# LANGUAGE ConstraintKinds, DataKinds, DefaultSignatures, DeriveAnyClass, DeriveGeneric, DerivingStrategies, DerivingVia, DisambiguateRecordFields, FlexibleContexts, FlexibleInstances, GeneralizedNewtypeDeriving, NamedFieldPuns, OverloadedLists, OverloadedStrings, ScopedTypeVariables, StandaloneDeriving, - TupleSections, TypeApplications, TypeOperators, UndecidableInstances #-} + TypeApplications, TypeOperators, UndecidableInstances #-} module Language.Python.Core ( compile @@ -171,7 +171,7 @@ instance Compile (Py.ExpressionStatement Span) where { Py.extraChildren = children } cc = do foldr compileCC cc children >>= locate it - compile stmt = compileCC stmt (pure none) + compile = viaCompileCC instance Compile (Py.ExpressionList Span) where compile it@Py.ExpressionList { Py.extraChildren = exprs } = do