diff options
| author | Volpeon <github@volpeon.ink> | 2023-05-28 10:18:49 +0200 |
|---|---|---|
| committer | Volpeon <github@volpeon.ink> | 2023-05-28 10:18:49 +0200 |
| commit | b2c846b0daf9d6e26e1e2a07fecc848b4732baa0 (patch) | |
| tree | d76c99df7a6e52301d41c59eac1736137062ceac /src/Data/JLD/Flattening.hs | |
| parent | Completed untested Flattening implementation (diff) | |
| download | hs-jsonld-b2c846b0daf9d6e26e1e2a07fecc848b4732baa0.tar.gz hs-jsonld-b2c846b0daf9d6e26e1e2a07fecc848b4732baa0.tar.bz2 hs-jsonld-b2c846b0daf9d6e26e1e2a07fecc848b4732baa0.zip | |
Fixed flattening errors
Diffstat (limited to 'src/Data/JLD/Flattening.hs')
| -rw-r--r-- | src/Data/JLD/Flattening.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/JLD/Flattening.hs b/src/Data/JLD/Flattening.hs index 2bfd8dd..3a8c726 100644 --- a/src/Data/JLD/Flattening.hs +++ b/src/Data/JLD/Flattening.hs | |||
| @@ -34,7 +34,7 @@ collectNodesStep ar node | |||
| 34 | flatten :: Monad m => Value -> JLDFlatteningT e m Value | 34 | flatten :: Monad m => Value -> JLDFlatteningT e m Value |
| 35 | flatten element = do | 35 | flatten element = do |
| 36 | -- 1. 2. | 36 | -- 1. 2. |
| 37 | nodeMap <- fst <$> buildNodeMap element id | 37 | (nodeMap, _, _, _) <- buildNodeMap element id |
| 38 | 38 | ||
| 39 | -- 3. 4. | 39 | -- 3. 4. |
| 40 | let defaultGraph = fromMaybe mempty <| M.lookup (show KeywordDefault) nodeMap | 40 | let defaultGraph = fromMaybe mempty <| M.lookup (show KeywordDefault) nodeMap |