shithub: MicroHs

ref: c9fd045412e8361977ed3dd53cb7aa627242a00c
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]