github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-15 01:51:39 +03:00
Code Issues Projects Releases Wiki Activity

Simplify some fmaps.

Browse Source
This commit is contained in:
Rob Rix 2018-12-05 17:21:49 -05:00
parent db823182a7
commit 92a82f0bd2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Ruby/Syntax.hs
View File

@ -206,8 +206,8 @@ instance Evaluatable Class where
(Just scope, Just frame) -> Just (scope, frame)
_ -> Nothing
let superclassEdges = fmap (Superclass, ) . fmap (pure . fst) . catMaybes $ superScopes
current = fmap (Lexical, ) . pure . pure $ currentScope'
let superclassEdges = (Superclass, ) . pure . fst <$> catMaybes superScopes
current = (Lexical, ) <$> pure (pure currentScope')
edges = Map.fromList (superclassEdges <> current)
childScope <- newScope edges
declare (Declaration name) span (Just childScope)