относится селектор?
                  
                  
                  типа такого
                  
                  
                  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
Обсуждают сегодня