Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data MyData = MyData {
- a :: Int,
- b :: Int,
- c :: Int
- } deriving (Show)
- def = MyData 1 2 3
- makeMyData :: Int -> Int -> MyData
- makeMyData a' b' = def { a = a', b = b'}
- myData1 = (makeMyData 9 10) {a = 1}
- myData2 = (makeMyData 11 12) {c = 12}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement