File tree Expand file tree Collapse file tree 1 file changed +27
-27
lines changed Expand file tree Collapse file tree 1 file changed +27
-27
lines changed Original file line number Diff line number Diff line change @@ -523,7 +523,7 @@ fromString str =
523
523
view : OperatingSystem -> Key -> String
524
524
view os key =
525
525
let
526
- letter l casing =
526
+ letter_ l casing =
527
527
case casing of
528
528
Lower ->
529
529
String . toLower l
@@ -533,82 +533,82 @@ view os key =
533
533
in
534
534
case key of
535
535
A casing ->
536
- letter " a" casing
536
+ letter_ " a" casing
537
537
538
538
B casing ->
539
- letter " b" casing
539
+ letter_ " b" casing
540
540
541
541
C casing ->
542
- letter " c" casing
542
+ letter_ " c" casing
543
543
544
544
D casing ->
545
- letter " d" casing
545
+ letter_ " d" casing
546
546
547
547
E casing ->
548
- letter " e" casing
548
+ letter_ " e" casing
549
549
550
550
F casing ->
551
- letter " f" casing
551
+ letter_ " f" casing
552
552
553
553
G casing ->
554
- letter " g" casing
554
+ letter_ " g" casing
555
555
556
556
H casing ->
557
- letter " h" casing
557
+ letter_ " h" casing
558
558
559
559
I casing ->
560
- letter " i" casing
560
+ letter_ " i" casing
561
561
562
562
J casing ->
563
- letter " j" casing
563
+ letter_ " j" casing
564
564
565
565
K casing ->
566
- letter " k" casing
566
+ letter_ " k" casing
567
567
568
568
L casing ->
569
- letter " l" casing
569
+ letter_ " l" casing
570
570
571
571
M casing ->
572
- letter " m" casing
572
+ letter_ " m" casing
573
573
574
574
N casing ->
575
- letter " n" casing
575
+ letter_ " n" casing
576
576
577
577
O casing ->
578
- letter " o" casing
578
+ letter_ " o" casing
579
579
580
580
P casing ->
581
- letter " p" casing
581
+ letter_ " p" casing
582
582
583
583
Q casing ->
584
- letter " q" casing
584
+ letter_ " q" casing
585
585
586
586
R casing ->
587
- letter " r" casing
587
+ letter_ " r" casing
588
588
589
589
S casing ->
590
- letter " s" casing
590
+ letter_ " s" casing
591
591
592
592
T casing ->
593
- letter " t" casing
593
+ letter_ " t" casing
594
594
595
595
U casing ->
596
- letter " u" casing
596
+ letter_ " u" casing
597
597
598
598
V casing ->
599
- letter " v" casing
599
+ letter_ " v" casing
600
600
601
601
W casing ->
602
- letter " w" casing
602
+ letter_ " w" casing
603
603
604
604
X casing ->
605
- letter " x" casing
605
+ letter_ " x" casing
606
606
607
607
Y casing ->
608
- letter " y" casing
608
+ letter_ " y" casing
609
609
610
610
Z casing ->
611
- letter " z" casing
611
+ letter_ " z" casing
612
612
613
613
Semicolon ->
614
614
" ;"
You can’t perform that action at this time.
0 commit comments