mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-21 07:17:25 +03:00
do not export Name constructor
This commit is contained in:
parent
da3feff5ef
commit
1f793504ee
@ -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
|
||||
|
@ -1,5 +1,5 @@
|
||||
module Unison.Name
|
||||
( Name (Name),
|
||||
( Name,
|
||||
Convert (..),
|
||||
Parse (..),
|
||||
endsWithSegments,
|
||||
|
Loading…
Reference in New Issue
Block a user