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

A term has a syntax

Browse Source
This commit is contained in:
joshvera 2018-06-20 16:34:14 -04:00
parent 09258b88f7
commit 9dda9dfc47
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Term.hs
View File

@ -82,7 +82,7 @@ instance (Show1 f, Show a) => Show (Term f a) where
showsPrec = showsPrec1 showsPrec = showsPrec1
instance Message1 f => Message (Term f ()) where instance Message1 f => Message (Term f ()) where
encodeMessage num (Term (In _ f)) = Encode.embedded num (liftEncodeMessage encodeMessage num f) encodeMessage num (Term (In _ f)) = Encode.embedded num (liftEncodeMessage encodeMessage (fromInteger 1) f)
decodeMessage num = termIn () . fromMaybe undefined <$> Decode.at (Decode.embedded (liftDecodeMessage decodeMessage num)) num decodeMessage num = termIn () . fromMaybe undefined <$> Decode.at (Decode.embedded (liftDecodeMessage decodeMessage num)) num
dotProto _ = liftDotProto (Proxy @(f (Term f ()))) dotProto _ = liftDotProto (Proxy @(f (Term f ())))