sanchayanmaity
/
lets-lens
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compile with more recent versions of GHC.

This commit is contained in:
Tony Morris 2017-04-20 10:41:05 +10:00
parent 4d6a99fa72
commit 56aaad1f95
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.markdown
View File

@ -5,7 +5,7 @@
Let's Lens presents a series of exercises, in a similar format to Let's Lens presents a series of exercises, in a similar format to
[the Data61 functional programming course material](http://github.com/data61/fp-course). [the Data61 functional programming course material](http://github.com/data61/fp-course).
The subject of the exercises is around the concept of lenses, initially proposed The subject of the exercises is around the concept of lenses, initially proposed
by Foster et al., to solve the view-update problem of relational databases. by Foster et al., to solve the view-update problem of relational databases.
The theories around lenses have been advanced significantly in recent years, The theories around lenses have been advanced significantly in recent years,
resulting in a library, implemented in Haskell, called `lens`. resulting in a library, implemented in Haskell, called `lens`.

18
src/Lets/Lens.hs
View File

@ -314,14 +314,14 @@ setP ::
Prism s t a b Prism s t a b
-> s -> s
-> Either t a -> Either t a
setP = setP _ _ =
error "todo: setP" error "todo: setP"
getP :: getP ::
Prism s t a b Prism s t a b
-> b -> b
-> t -> t
getP = getP _ _ =
error "todo: getP" error "todo: getP"
type Prism' a b = type Prism' a b =
@ -345,7 +345,7 @@ modify ::
-> (a -> b) -> (a -> b)
-> s -> s
-> t -> t
modify = modify _ _ _ =
error "todo: modify" error "todo: modify"
-- | An alias for @modify@. -- | An alias for @modify@.
@ -375,7 +375,7 @@ infixr 4 %~
-> b -> b
-> s -> s
-> t -> t
(.~) = (.~) _ _ _ =
error "todo: (.~)" error "todo: (.~)"
infixl 5 .~ infixl 5 .~
@ -396,7 +396,7 @@ fmodify ::
-> (a -> f b) -> (a -> f b)
-> s -> s
-> f t -> f t
fmodify = fmodify _ _ _ =
error "todo: fmodify" error "todo: fmodify"
-- | -- |
@ -412,7 +412,7 @@ fmodify =
-> f b -> f b
-> s -> s
-> f t -> f t
(|=) = (|=) _ _ _ =
error "todo: (|=)" error "todo: (|=)"
infixl 5 |= infixl 5 |=
@ -498,7 +498,7 @@ compose ::
Lens s t a b Lens s t a b
-> Lens q r s t -> Lens q r s t
-> Lens q r a b -> Lens q r a b
compose = compose _ _ =
error "todo: compose" error "todo: compose"
-- | An alias for @compose@. -- | An alias for @compose@.
@ -534,7 +534,7 @@ product ::
Lens s t a b Lens s t a b
-> Lens q r c d -> Lens q r c d
-> Lens (s, q) (t, r) (a, c) (b, d) -> Lens (s, q) (t, r) (a, c) (b, d)
product = product _ _ =
error "todo: product" error "todo: product"
-- | An alias for @product@. -- | An alias for @product@.
@ -564,7 +564,7 @@ choice ::
Lens s t a b Lens s t a b
-> Lens q r a b -> Lens q r a b
-> Lens (Either s q) (Either t r) a b -> Lens (Either s q) (Either t r) a b
choice = choice _ _ =
error "todo: choice" error "todo: choice"
-- | An alias for @choice@. -- | An alias for @choice@.