haskell-jp / random #19

-rw-r--r--  1 fumieval  staff  125709  6  5 23:23 data.binary
-rw-r--r--  1 fumieval  staff   65437  6  5 23:23 data.cbor
-rw-r--r--  1 fumieval  staff   73619  6  5 23:23 data.csv
-rw-r--r--  1 fumieval  staff   65196  6  5 23:23 data.winery

data ObjectA = ObjectA { objB :: ObjectB }
data ObjectB = ObjectB { value :: Int }

objA = ObjectA (ObjectB 1)

newObjA = case objA of
  a@ObjectA{..} -> case objB of
    b@ObjectB{..} -> a { objB = b { value = value + 1 } }