shithub: MicroHs

ref: 54c1737c8200efe04b377fd08676d0c584fbf0c7
dir: /lib/Text/Read_Class.hs/

View raw version 
-- Copyright 2023,2024 Lennart Augustsson
-- See LICENSE file for full license.
-- Temporary Read class
module Text.Read_Class(
  ReadS,
  Read(..),
  ) where
import Primitives

type String = [Char]  -- avoid importing Data.Char

type ReadS a = String -> [(a, String)]

class Read a where
  readsPrec    :: Int -> ReadS a
--  readList     :: ReadS [a]