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

Compile with more recent versions of GHC.

Browse source
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

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@.