shithub: MicroHs

Info  •  Files  •  Log  •  Branches

s/primEqString/primStringEQ/

--- a/ghc/Primitives.hs

+++ b/ghc/Primitives.hs

@@ -86,8 +86,8 @@

 primError :: String -> a

 primError = error

-primEqString :: String -> String -> Bool

-primEqString = (==)

+primStringEQ :: String -> String -> Bool

+primStringEQ = (==)

 primUnsafeCoerce :: a -> b

 primUnsafeCoerce = unsafeCoerce

--- a/lib/Primitives.hs

+++ b/lib/Primitives.hs

@@ -118,12 +118,11 @@

 --primEqual  :: forall a . a -> a -> Bool

 --primEqual  = primitive "equal"

---primCompare  :: forall a . a -> a -> Int

 primCompare :: [Char] -> [Char] -> Ordering

 primCompare  = primitive "compare"

-primEqString  :: [Char] -> [Char] -> Bool

-primEqString  = primitive "equal"

+primStringEQ  :: [Char] -> [Char] -> Bool

+primStringEQ  = primitive "equal"

 primChr :: Int -> Char

 primChr = primitive "I"

--- a/lib/Text/String.hs

+++ b/lib/Text/String.hs

@@ -109,7 +109,7 @@

 -- Using a primitive for string equality makes a huge speed difference.

 eqString :: String -> String -> Bool

-eqString = primEqString

+eqString = primStringEQ

 {-

 eqString axs ays =

   case axs of

-- 

⑨