-\r
-\r
-class Show a where\r
- show :: a -> String\r
- \r
-class Read a where\r
- read :: String -> a\r
- \r
-combine x = show (read x)\r
---\r
-9:13-9:17: Constrain Show a contains free variables not mentioned in the type of the value.\r
+
+
+class Show a where
+ show :: a -> String
+
+class Read a where
+ read :: String -> a
+
+combine x = show (read x)
+--
+9:13-9:17: Constrain Show a contains free variables not mentioned in the type of the value.