do not export Name constructor

parser-typechecker/tests/Unison/Core/Test/Name.hs

@@ -25,7 +25,7 @@ test = scope "name" $ tests
   , scope "segments" $ do
     n    <- int' 0 10
     segs <- listOf n $ pick [".", "foo"]
-    expectEqual' (segments $ Name . pack $ intercalate "." segs)
+    expectEqual' (segments $ Name.unsafeFromText . pack $ intercalate "." segs)
                  (NameSegment . pack <$> segs)
     ok
   , scope "suffixSearch" $ do

unison-core/src/Unison/Name.hs

@@ -1,5 +1,5 @@
 module Unison.Name
-  ( Name (Name),
+  ( Name,
     Convert (..),
     Parse (..),
     endsWithSegments,