github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-08 08:30:27 +03:00
Code Issues Projects Releases Wiki Activity

Generate Unmarshal instances over Identity

Browse Source
This commit is contained in:
Patrick Thomson 2020-04-07 15:10:06 -04:00
parent 76d1b2d533
commit 64c0bd8aa1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
semantic-ast/src/AST/GenerateSyntax.hs
View File

@ -29,6 +29,7 @@ import Language.Haskell.TH as TH
import Language.Haskell.TH.Syntax as TH
import System.Directory
import System.FilePath.Posix
import Data.Functor.Identity
import qualified TreeSitter.Language as TS
import TreeSitter.Node
import TreeSitter.Symbol (TSSymbol, toHaskellCamelCaseIdentifier, toHaskellPascalCaseIdentifier)
@ -113,7 +114,7 @@ makeStandaloneDerivings ty =
deriving instance ((forall x . Eq x => Eq (f x)), Eq a) => Eq ($ty f a)
deriving instance ((forall x . Ord x => Ord (f x)), (forall x . Eq x => Eq (f x)), Ord a) => Ord ($ty f a)
deriving instance ((forall x . Show x => Show (f x)), Show a) => Show ($ty f a)
--deriving instance TS.Unmarshal f => TS.Unmarshal ($ty f)
instance TS.Unmarshal ($ty Identity)
|]