github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-29 02:44:36 +03:00
Code Issues Projects Releases Wiki Activity

Fix warnings in Language.Python.Core.

Browse Source
This commit is contained in:
Patrick Thomson 2019-09-23 19:59:23 -04:00
parent 1990e2379b
commit 6dcbe96a0c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
semantic-python/src/Language/Python/Core.hs
View File

@ -102,7 +102,6 @@ newtype CompileSum py = CompileSum py
instance (Generic py, GCompileSum (Rep py)) => Compile (CompileSum py) where instance (Generic py, GCompileSum (Rep py)) => Compile (CompileSum py) where
compileCC (CompileSum a) cc = gcompileCCSum (from a) cc compileCC (CompileSum a) cc = gcompileCCSum (from a) cc
compileCC (CompileSum a) cc = gcompileCCSum (from a) cc
deriving via CompileSum (Either l r) instance (Compile l, Compile r) => Compile (Either l r) deriving via CompileSum (Either l r) instance (Compile l, Compile r) => Compile (Either l r)
@ -259,7 +258,7 @@ instance Compile (Py.True Span) where
instance Compile (Py.TryStatement Span) instance Compile (Py.TryStatement Span)
instance Compile (Py.Tuple Span) where instance Compile (Py.Tuple Span) where
compileCC it@Py.Tuple { Py.extraChildren = [] } _ = pure unit compileCC it@Py.Tuple { Py.extraChildren = [] } _ = locate it unit
compileCC it _ compileCC it _
= fail ("Unimplemented: non-empty tuple " <> show it) = fail ("Unimplemented: non-empty tuple " <> show it)