diff options
| author | Volpeon <github@volpeon.ink> | 2023-05-28 14:38:50 +0200 |
|---|---|---|
| committer | Volpeon <github@volpeon.ink> | 2023-05-28 14:38:50 +0200 |
| commit | 97c5f804256d5291de0f5347d850479306c60fd7 (patch) | |
| tree | 9631606a3cff1ef626f37112e3af8ba17251380a /test | |
| parent | Fix reverse property handling in flattening (diff) | |
| download | hs-jsonld-97c5f804256d5291de0f5347d850479306c60fd7.tar.gz hs-jsonld-97c5f804256d5291de0f5347d850479306c60fd7.tar.bz2 hs-jsonld-97c5f804256d5291de0f5347d850479306c60fd7.zip | |
Small code optimization
Diffstat (limited to 'test')
| -rw-r--r-- | test/Test/Flattening.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Test/Flattening.hs b/test/Test/Flattening.hs index 76f5434..d452eee 100644 --- a/test/Test/Flattening.hs +++ b/test/Test/Flattening.hs | |||
| @@ -55,8 +55,8 @@ flatteningTest W3CTest{..} (show .> (<> ". " <> toString w3cTestName) -> testNam | |||
| 55 | inputJld <- fetchTest inputUrl | 55 | inputJld <- fetchTest inputUrl |
| 56 | expectJld <- fetchTest expectUrl | 56 | expectJld <- fetchTest expectUrl |
| 57 | 57 | ||
| 58 | (expandBaseUrl, params) <- parseFlatteningOptions baseUrl inputUrl w3cTestOption | 58 | (flatteningBaseUrl, params) <- parseFlatteningOptions baseUrl inputUrl w3cTestOption |
| 59 | (result, _) <- flatten inputJld expandBaseUrl params | 59 | (result, _) <- flatten inputJld flatteningBaseUrl params |
| 60 | 60 | ||
| 61 | result @?= Right expectJld | 61 | result @?= Right expectJld |
| 62 | -- | 62 | -- |