unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-04 21:57:25 +03:00
Code Issues Projects Releases Wiki Activity

bugfix: Path.toText rendered an empty path as ".", not ""

Browse Source
This commit is contained in:
Mitchell Rosen 2024-02-02 11:55:35 -05:00
parent 3f3860fba3
commit 609c47b0bf
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
parser-typechecker/src/Unison/Codebase/Path.hs
View File

@ -350,10 +350,8 @@ instance Show Path where
-- | Note: This treats the path as relative.
toText :: Path -> Text
toText path =
case toName path of
Nothing -> "."
Just name -> Name.toText name
toText =
maybe Text.empty Name.toText . toName
unsafeParseText :: Text -> Path
unsafeParseText = \case