ref: 2f3ccd459aedf6d03eaee5f77d982cbab4c23396
parent: 7f88e8b5ff4566d73dde265f001172ef71abbd35
author: Lennart Augustsson <lennart@augustsson.net>
date: Sun Oct 29 14:04:54 EDT 2023
Another class.
--- /dev/null
+++ b/lib/Text/Show.hs
@@ -1,0 +1,15 @@
+module Text.Show(module Text.Show) where
+import Data.Char
+import Data.Int
+
+type ShowS = String -> String
+
+class Show a where
+ showsPrec :: Int -> a -> ShowS
+ show :: a -> String
+ showList :: [a] -> ShowS
+
+--showChar :: Char -> ShowS
+--showParen :: Bool -> ShowS -> ShowS
+--showString :: String -> ShowS
+--shows :: forall a . Show a => a -> ShowS
--
⑨