относится селектор?
типа такого
data MyRec = MyRec {
field1 :: Int,
field2 :: Int
}
let rec = MyRec 1 2
MyRec.field1 rec
{-# LANGUAGE OverloadedRecordDot #-} data MyRec = MyRec { field1 :: Int, field2 :: Int } data MyOtherRec = MyOtherRec { field1 :: Float, field2 :: Float } rec = MyRec 1 2 rec' = MyOtherRec 1 2 main = do print $ rec.field1 print $ rec'.field1
Обсуждают сегодня