Hi,

Excuse me for resubmitting my Problem with Hugs1.4June / Hugs981111.
I just discovered that the code in my last mail was incomplete.

Here it is (somehow simplified:)


data SpecialOptions = SpecialOptions { x :: Int }
     deriving (Show, Read)
     
data Options = Options { s :: SpecialOptions }
     deriving (Show, Read)

initOptions = Options { s = SpecialOptions{x=42} }

main :: Options
main = (read . show) initOptions



This program gives

  Program error: PreludeText.read: no parse



main :: Int 
main = (read . show) 42

works fine. The problem is that the show/read functions for
nested data structures are incompatible...

Does anyone know how to fix it?


Regards,                                                          

Jan

 ___
'---|--------------------------------------------------------------
    |  __,   _  _      EMail: [EMAIL PROTECTED]
    | /  |  / |/ |     WWWeb: http://www.uni-passau.de/~laitenbe/
    |/\_/|_/  |  |_/
   /| Laitenberger     
--(-|--------------------------------------------------------------
   \|

Reply via email to