fix test

camfort · Sep 13, 2024 · 21c4eed · 21c4eed
1 parent 8527dd3
commit 21c4eed
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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")