Andy Stewart wrote:
So have a better solution to avoid write above ugly code
How about:
data Page a =
Page {pageName :: IORef String
,pageId:: Int
,pageBuffer:: a
,pageBox :: VBox
}
class PageBuffer a where
pageBufferClone :: a -
Hi all,
I have below source code, i use Dynamic for `pageBuffer`.
In implement of function `pageClone`, after `case pt of`, i need write
like this, and this code looks ugly, if `PageTyep` have 100 type, i need
write those ugly code 100 times.
case pt of
TStringBuffer -
On Tue, Jun 9, 2009 at 7:21 AM, Neil Brownnc...@kent.ac.uk wrote:
data Page a =
Page {pageName :: IORef String
,pageId :: Int
,pageBuffer :: a
,pageBox :: VBox
}
class PageBuffer a where
pageBufferClone :: a - IO (a, VBox)
pageClone ::