fredefox/rubyhs
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Handle sequences constants for module identifiers

Browse source
This commit is contained in:
Frederik Hanghøj Iversen 2019-10-11 16:26:15 +02:00
parent a698ac82ea
commit 0fcc2dbf6c
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Rubyhs/References.hs
View file

@ -129,8 +129,13 @@ appendToContext n = updateContext go
go q = name2ns n <> q go q = name2ns n <> q
name2ns :: Name -> Namespace name2ns :: Name -> Namespace
name2ns (Name o) = case o of name2ns (Name o) = go o
Aeson.Array [_, _, Aeson.String s] -> [s] where
go :: Aeson.Value -> Namespace
go = \case
Aeson.Array [Aeson.String "const", x, Aeson.String s] -> case x of
Aeson.Null -> [s]
_ -> go x <> [s]
_ -> error $ show o _ -> error $ show o
class References a where class References a where