Try liftM3 from Control.Monad
let get = xmlGetWidget xml castToEntry
liftM3 UserPanel (get signatureEntry) (get passwordEntry) (get
repeatEntry)
Adde wrote:
Hi.
I'm toying around with GTK2Hs and one of the things I'm doing
is stuffing a bunch of widgets in a record.
The problem is that
Adde wrote:
signatureEntry - xmlGetWidget xml castToEntry signatureEntry
passwordEntry - xmlGetWidget xml castToEntry passwordEntry
repeatEntry - xmlGetWidget xml castToEntry repeatEntry
return UserPanel {userPanelSignatureEntry = signatureEntry,
userPanelPasswordEntry =