shithub: MicroHs

ref: 07d3077a0836ba741ed37f0397045e4a38deefee
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]