github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Remove incomplete-uni-patterns pragma.

Browse Source
This commit is contained in:
Patrick Thomson 2020-01-17 11:21:03 -05:00
parent b3abb671f3
commit 5c9615a5fe
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
semantic-python/test-graphing/GraphTest.hs
View File

@ -3,10 +3,10 @@
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-}
module Main (main) where
import Control.Algebra
import Control.Carrier.Lift
import Control.Carrier.Sketch.Fresh
import Control.Monad
import qualified Data.ByteString as ByteString
@ -68,7 +68,7 @@ assertSimpleAssignment :: HUnit.Assertion
assertSimpleAssignment = do
let path = "semantic-python/test/fixtures/1-04-toplevel-assignment.py"
(result, Complete) <- graphFile path
let (expecto, Complete) = run $ runSketch Nothing sampleGraphThing
(expecto, Complete) <- runM $ runSketch Nothing sampleGraphThing
HUnit.assertEqual "Should work for simple case" expecto result
expectedReference :: (Has (Sketch Name) sig m) => m Result
@ -81,7 +81,7 @@ assertSimpleReference :: HUnit.Assertion
assertSimpleReference = do
let path = "semantic-python/test/fixtures/5-01-simple-reference.py"
(result, Complete) <- graphFile path
let (expecto, Complete) = run $ runSketch Nothing expectedReference
(expecto, Complete) <- runM $ runSketch Nothing expectedReference
HUnit.assertEqual "Should work for simple case" expecto result