shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Split out Char type definition from Data.Char

--- a/Makefile

+++ b/Makefile

@@ -47,6 +47,7 @@

 	rm -rf $(BOOTDIR)

 	$(GHCB) -c ghc/Primitives.hs

 	$(GHCB) -c ghc/Data/Bool_Type.hs

+	$(GHCB) -c ghc/Data/Char_Type.hs

 	$(GHCB) -c ghc/Data/Ordering_Type.hs

 	$(GHCB) -c ghc/Data/Double.hs

 	$(GHCB) -c ghc/PrimTable.hs

--- /dev/null

+++ b/ghc/Data/Char_Type.hs

@@ -1,0 +1,1 @@

+module Data.Char_Type(Char, String) where

--- a/lib/Data/Char.hs

+++ b/lib/Data/Char.hs

@@ -1,12 +1,14 @@

 -- Copyright 2023 Lennart Augustsson

 -- See LICENSE file for full license.

-module Data.Char(module Data.Char, Char) where

+module Data.Char(

+  module Data.Char,

+  module Data.Char_Type   -- exports Char and String

+  ) where

 import Primitives

 import Data.Bool

+import Data.Char_Type

 import Data.Eq

 import Data.Int

-

-type String = [Char]

 instance Eq Char where

   (==) = primCharEQ

--- /dev/null

+++ b/lib/Data/Char_Type.hs

@@ -1,0 +1,5 @@

+module Data.Char_Type(Char, String) where

+import Primitives

+--import Data.List_Type

+

+type String = [Char]

-- 

⑨