1 interface Oberon_String where
2 from_string :: [Char] -> Oberon_String
3 {-# ARITY from_string = 1 #-}
5 instance Eq Oberon_String
8 instance Text Oberon_String
9 {-# ARITY readsPrec = 0 #-}
10 {-# ARITY showsPrec = 2 #-}
11 {-# ARITY readList = 0 #-}
12 {-# ARITY showList = 0 #-}