unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-20 23:07:13 +03:00
Code Issues Projects Releases Wiki Activity

Syntax as html: use {} over _ in pattern matches

Browse Source
This commit is contained in:
Simon Højberg 2021-10-21 21:56:10 -04:00
parent 242792d448
commit cab30a0283
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
parser-typechecker/src/Unison/Server/Syntax.hs
View File

@ -17,6 +17,7 @@ import Data.Proxy (Proxy (..))
import qualified Data.Text as Text
import qualified Unison.HashQualified as HashQualified
import Unison.Name (Name)
import qualified Data.Foldable as Foldable
import qualified Unison.Name as Name
import qualified Unison.NameSegment as NameSegment
import Unison.Pattern (SeqOp (..))
@ -200,13 +201,13 @@ segmentToHtml (Segment segmentText element) =
in case el of
TypeReference {} ->
isFQN_
TermReference _ ->
TermReference {} ->
isFQN_
HashQualifier _ ->
HashQualifier {} ->
isFQN_
DataConstructorReference _ ->
DataConstructorReference {} ->
isFQN_
AbilityConstructorReference _ ->
AbilityConstructorReference {} ->
isFQN_
_ ->
False
@ -241,13 +242,13 @@ elementToClassName el =
"blank"
Var ->
"var"
TypeReference _ ->
TypeReference {} ->
"type-reference"
TermReference _ ->
TermReference {} ->
"term-reference"
DataConstructorReference _ ->
DataConstructorReference {} ->
"data-constructor-reference"
AbilityConstructorReference _ ->
AbilityConstructorReference {} ->
"ability-constructor-reference"
Op seqOp ->
case seqOp of
@ -281,7 +282,7 @@ elementToClassName el =
"use-prefix"
UseSuffix ->
"use-suffix"
HashQualifier _ ->
HashQualifier {} ->
"hash-qualifier"
DelayForceChar ->
"delay-force-char"