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

Clean up outdated comments

This commit is contained in:
Frederik Hanghøj Iversen 2019-10-17 23:58:05 +02:00
parent 4392339d4e
commit ba8a5c78bb
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Data/Language/Ruby/AST.hs
View File

@ -58,7 +58,7 @@ instance FromJSON Begin where
(Aeson.String "begin":xs) -> Begin <$> traverse parseJSON xs (Aeson.String "begin":xs) -> Begin <$> traverse parseJSON xs
_ -> Begin . pure <$> parseJSON (Aeson.Array as) _ -> Begin . pure <$> parseJSON (Aeson.Array as)
-- Should be 'expression' -- Maybe should be 'expression'.
data Statement data Statement
= StmtModule Module = StmtModule Module
| StmtDef Def | StmtDef Def
@ -198,9 +198,6 @@ instance FromJSON Block where
<*> parseJSON begin <*> parseJSON begin
_ -> empty _ -> empty
-- | It's super confusing that I've already defined a node in my AST
-- called args. This one correspond to the AST node with the label
-- "args" as reported by `ruby-parse`.
newtype Args = Args [Arg] newtype Args = Args [Arg]
deriving stock instance Show Args deriving stock instance Show Args
@ -339,7 +336,7 @@ instance FromJSON Def where
<*> parseMaybe begin <*> parseMaybe begin
_ -> empty _ -> empty
-- | N.B.: 'Defs' is not meant to be the plural form of 'Def'! -- | N.B.: 'Defs' is *not* meant to be the plural form of 'Def'!
data Defs = Defs data Defs = Defs
-- Is it really possible to put an arbitrary expression here? The -- Is it really possible to put an arbitrary expression here? The
-- parser certainly allows it. E.g. defining -- parser certainly allows it. E.g. defining
@ -486,7 +483,6 @@ instance FromJSON Self where
[Aeson.String "self"] -> pure Self [Aeson.String "self"] -> pure Self
_ -> empty _ -> empty
data Cbase = Cbase data Cbase = Cbase
deriving stock instance Show Cbase deriving stock instance Show Cbase
@ -500,7 +496,6 @@ instance FromJSON Cbase where
[Aeson.String "cbase"] -> pure Cbase [Aeson.String "cbase"] -> pure Cbase
_ -> empty _ -> empty
data Nil = Nil data Nil = Nil
deriving stock instance Show Nil deriving stock instance Show Nil