unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-05 14:17:33 +03:00
Code Issues Projects Releases Wiki Activity

fix tests caused by busted isSymbolic check on Name values

Browse Source 
This was causing all infix operators to display as prefix, which broke some tests
This commit is contained in:
Paul Chiusano 2019-02-05 10:05:28 -05:00
parent c14cbbfcd3
commit a9809823bf
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
parser-typechecker/src/Unison/Name.hs
View File

@ -24,7 +24,7 @@ toString :: Name -> String
toString = Text.unpack . toText
instance Show Name where
show = show . toText
show = toString
instance IsString Name where
fromString = unsafeFromText . Text.pack

3
parser-typechecker/src/Unison/TermPrinter.hs
View File

@ -18,6 +18,7 @@ import qualified Unison.Blank as Blank
import qualified Unison.HashQualified as HQ
import Unison.Lexer ( symbolyId )
import Unison.Name ( Name )
import qualified Unison.Name as Name
import Unison.NamePrinter ( prettyHashQualified )
import Unison.PatternP ( Pattern )
import qualified Unison.PatternP as Pattern
@ -417,7 +418,7 @@ isSymbolic (HQ.HashQualified name _) = isSymbolic' name
isSymbolic (HQ.HashOnly _) = False
isSymbolic' :: Name -> Bool
isSymbolic' name = case symbolyId . show $ name of
isSymbolic' name = case symbolyId . Name.toString $ name of
Right _ -> True
_ -> False