Skip to content

Commit 2ed8e60

Browse files
EMQ-YangMemqplus
EMQ-YangM
authored andcommitted
feat(String): Change the String type to List Char
1 parent 43f3a82 commit 2ed8e60

File tree

6 files changed

+3
-12
lines changed

6 files changed

+3
-12
lines changed

lib/Data/Eq.hm

-3
Original file line numberDiff line numberDiff line change
@@ -48,9 +48,6 @@ instance Eq Integer where
4848
instance Eq Float where
4949
eq = eqFloatImpl
5050

51-
instance Eq String where
52-
eq = eqStringImpl
53-
5451
instance Eq a => Eq (List a) where
5552
eq = eqListImpl
5653

lib/Data/Monoid.hm

-3
Original file line numberDiff line numberDiff line change
@@ -21,9 +21,6 @@ import Data.Unit (Unit, unit)
2121
class Semigroup m => Monoid m where
2222
mempty :: m
2323

24-
instance Monoid String where
25-
mempty = ""
26-
2724
instance Monoid (List a) where
2825
mempty = []
2926

lib/Data/Semigroup.hm

-3
Original file line numberDiff line numberDiff line change
@@ -24,9 +24,6 @@ class Semigroup a where
2424

2525
infixr 5 append as <>
2626

27-
instance Semigroup String where
28-
append = stringAppend
29-
3027
instance Semigroup (List a) where
3128
append = listAppend
3229

lib/Data/Show.hm

+1-1
Original file line numberDiff line numberDiff line change
@@ -38,7 +38,7 @@ instance Show Float where
3838
instance Show Char where
3939
show c = showCharImpl c
4040

41-
instance Show String where
41+
instance Show [Char] where
4242
show s = s
4343

4444
foreign import showIntImpl :: Integer -> String

lib/Prelude.hm

+1-1
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,7 @@ import Data.List (cons,head, splitAt, last, reverse, concat, filter, (++), take,
5252
import Data.Float (Double)
5353
import Data.Functor (class Functor, map, (<$>))
5454
import Data.Function (($), apply, const, flip, identity, error)
55-
import Data.Maybe (Maybe)
55+
import Data.Maybe (Maybe(..))
5656
import Data.Map (fromList)
5757
import Data.Ord (class Ord, between, compare, comparing, greaterThan, greaterThanOrEq, lessThan, lessThanOrEq, max, min, (<), (<=), (>), (>=))
5858
import Data.Ref (Ref, Reference, makeRef)

stack.yaml

+1-1
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,7 @@ extra-deps:
1212
- github: hamler-lang/CoreErlang
1313
commit: afb0b731ff457d278403ab4bc134d3c88e09ea1f
1414
- github: hamler-lang/purescript
15-
commit: 2c43709229b12e72dfc550ccf3efce6bfa60da72
15+
commit: 6f71d3df88c471705fefa25818dfe6900c263989
1616
flags:
1717
these:
1818
assoc: false

0 commit comments

Comments
 (0)