fix a couple more warnings

unisonweb · Aug 27, 2024 · 2672623 · 2672623
1 parent 9346865
commit 2672623
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/unison-cli/src/Unison/Cli/MonadUtils.hs b/unison-cli/src/Unison/Cli/MonadUtils.hs
@@ -556,5 +556,7 @@ makeParsingEnv path names = do
     ParsingEnv
       { uniqueNames = uniqueName,
         uniqueTypeGuid = loadUniqueTypeGuid path,
-        names
+        names,
+        maybeNamespace = Nothing,
+        localNamespacePrefixedTypesAndConstructors = mempty
       }
diff --git a/unison-merge/src/Unison/Merge/Mergeblob4.hs b/unison-merge/src/Unison/Merge/Mergeblob4.hs
@@ -37,7 +37,9 @@ makeMergeblob4 blob = do
             -- call to `error`.
             uniqueNames = Parser.UniqueName \_ _ -> Nothing,
             uniqueTypeGuid = \name -> Identity (Map.lookup name blob.uniqueTypeGuids),
-            names = stageOneNames
+            names = stageOneNames,
+            maybeNamespace = Nothing,
+            localNamespacePrefixedTypesAndConstructors = mempty
           }
   file <- runIdentity (Parsers.parseFile "<merge>" (Pretty.toPlain 80 blob.unparsedFile) parsingEnv)
   Right