From 97c5f804256d5291de0f5347d850479306c60fd7 Mon Sep 17 00:00:00 2001 From: Volpeon Date: Sun, 28 May 2023 14:38:50 +0200 Subject: Small code optimization --- test/Test/Flattening.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'test') 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 inputJld <- fetchTest inputUrl expectJld <- fetchTest expectUrl - (expandBaseUrl, params) <- parseFlatteningOptions baseUrl inputUrl w3cTestOption - (result, _) <- flatten inputJld expandBaseUrl params + (flatteningBaseUrl, params) <- parseFlatteningOptions baseUrl inputUrl w3cTestOption + (result, _) <- flatten inputJld flatteningBaseUrl params result @?= Right expectJld -- -- cgit v1.2.3-70-g09d2