From 21c4eed080a2bc107d2c538bff24b6848a083e75 Mon Sep 17 00:00:00 2001 From: Dominic Orchard Date: Fri, 13 Sep 2024 20:18:39 +0100 Subject: [PATCH] fix test --- test/Language/Fortran/Analysis/ModFileSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Language/Fortran/Analysis/ModFileSpec.hs b/test/Language/Fortran/Analysis/ModFileSpec.hs index 7f621b69..9ea4a245 100644 --- a/test/Language/Fortran/Analysis/ModFileSpec.hs +++ b/test/Language/Fortran/Analysis/ModFileSpec.hs @@ -42,6 +42,6 @@ testModuleMaps = do -- get unique name to filemap let mmap = genUniqNameToFilenameMap "" modFiles -- check that `constant` is declared in leaf.f90 - let Just leaf = M.lookup "leaf_constant_1" mmap + let Just (leaf, _) = M.lookup "leaf_constant_1" mmap leaf `shouldBe` ("test-data" "module" "leaf.f90")