1
1
mirror of https://github.com/github/semantic.git synced 2024-11-28 01:47:01 +03:00

Make semantic-python tests work.

This commit is contained in:
Patrick Thomson 2019-11-08 22:37:17 -05:00
parent 9c9e9db80f
commit 2e39e129cd
2 changed files with 5 additions and 5 deletions

View File

@ -8,8 +8,8 @@ module Directive ( Directive (..)
) where
import Analysis.Concrete (Concrete (..))
import Control.Algebra
import Control.Applicative
import Control.Effect
import Control.Monad
import Control.Monad.Trans.Resource (ResourceT, runResourceT)
import Core.Core (Core)

View File

@ -6,9 +6,9 @@ import Analysis.Concrete (Concrete)
import qualified Analysis.Concrete as Concrete
import Analysis.File
import Analysis.ScopeGraph
import Control.Effect
import Control.Effect.Fail
import Control.Effect.Reader
import Control.Algebra
import Control.Carrier.Fail.Either
import Control.Carrier.Reader
import Control.Monad hiding (fail)
import Control.Monad.Catch
import Control.Monad.IO.Class
@ -116,7 +116,7 @@ checkPythonFile fp = HUnit.testCaseSteps (Path.toString fp) $ \step -> withFroze
result <- ByteString.readFile (Path.toString fullPath) >>= TS.parseByteString TSP.tree_sitter_python
-- Run the compiler
let coreResult = Control.Effect.run
let coreResult = Control.Algebra.run
. runFail
. runReader @Py.Bindings mempty
. Py.toplevelCompile