kaushikc.org / lets-lens
this repo has no description
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

Compile with more recent versions of GHC.

Tony Morris 56aaad1f 4d6a99fa

+10 -10
+1 -1
README.markdown
··· 5 5 Let's Lens presents a series of exercises, in a similar format to 6 6 [the Data61 functional programming course material](http://github.com/data61/fp-course). 7 7 The subject of the exercises is around the concept of lenses, initially proposed 8 - by Foster et al., to solve the view-update problem of relational databases. 8 + by Foster et al., to solve the view-update problem of relational databases. 9 9 10 10 The theories around lenses have been advanced significantly in recent years, 11 11 resulting in a library, implemented in Haskell, called `lens`.
+9 -9
src/Lets/Lens.hs
··· 314 314 Prism s t a b 315 315 -> s 316 316 -> Either t a 317 - setP = 317 + setP _ _ = 318 318 error "todo: setP" 319 319 320 320 getP :: 321 321 Prism s t a b 322 322 -> b 323 323 -> t 324 - getP = 324 + getP _ _ = 325 325 error "todo: getP" 326 326 327 327 type Prism' a b = ··· 345 345 -> (a -> b) 346 346 -> s 347 347 -> t 348 - modify = 348 + modify _ _ _ = 349 349 error "todo: modify" 350 350 351 351 -- | An alias for @modify@. ··· 375 375 -> b 376 376 -> s 377 377 -> t 378 - (.~) = 378 + (.~) _ _ _ = 379 379 error "todo: (.~)" 380 380 381 381 infixl 5 .~ ··· 396 396 -> (a -> f b) 397 397 -> s 398 398 -> f t 399 - fmodify = 399 + fmodify _ _ _ = 400 400 error "todo: fmodify" 401 401 402 402 -- | ··· 412 412 -> f b 413 413 -> s 414 414 -> f t 415 - (|=) = 415 + (|=) _ _ _ = 416 416 error "todo: (|=)" 417 417 418 418 infixl 5 |= ··· 498 498 Lens s t a b 499 499 -> Lens q r s t 500 500 -> Lens q r a b 501 - compose = 501 + compose _ _ = 502 502 error "todo: compose" 503 503 504 504 -- | An alias for @compose@. ··· 534 534 Lens s t a b 535 535 -> Lens q r c d 536 536 -> Lens (s, q) (t, r) (a, c) (b, d) 537 - product = 537 + product _ _ = 538 538 error "todo: product" 539 539 540 540 -- | An alias for @product@. ··· 564 564 Lens s t a b 565 565 -> Lens q r a b 566 566 -> Lens (Either s q) (Either t r) a b 567 - choice = 567 + choice _ _ = 568 568 error "todo: choice" 569 569 570 570 -- | An alias for @choice@.