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

Spacing.

Browse Source
This commit is contained in:
Rob Rix 2022-01-28 11:18:39 -05:00
parent 6084ab89e9
commit 27b436f6d9
No known key found for this signature in database
GPG Key ID: 2BE643E01DC032AE
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
semantic-analysis/src/Analysis/Syntax.hs
View File

@ -113,7 +113,7 @@ instance (Has (Env addr) sig m, HasLabelled Store (Store addr val) sig m, Has (D
-- Parsing
parseGraph :: Syntax rep => A.Value -> A.Parser (IntMap.IntMap rep)
parseGraph :: Syntax rep => A.Value -> A.Parser (IntMap.IntMap rep)
parseGraph = A.withArray "nodes" $ \ nodes -> do
untied <- IntMap.fromList <$> traverse (A.withObject "node" parseNode) (V.toList nodes)
pure (let tied = ($ tied) <$> untied in tied)