Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
haskell
vinyl-loeb
Commits
d1320755
Commit
d1320755
authored
Aug 08, 2021
by
locallycompact
Browse files
Fix styling
parent
f9341cbf
Pipeline
#533
passed with stages
in 23 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
13 deletions
+14
-13
src/Data/Vinyl/Loeb.hs
src/Data/Vinyl/Loeb.hs
+14
-13
No files found.
src/Data/Vinyl/Loeb.hs
View file @
d1320755
{-|
Module : Data.Vinyl.Loeb
License : MIT
Maintainer : dan.firth@homotopic.tech
Stability : experimental
Loeb's theorem for vinyl extensible records.
-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE TypeOperators #-}
module
Data.Vinyl.Loeb
(
rloeb
)
where
-- |
-- Module : Data.Vinyl.Loeb
-- License : MIT
-- Maintainer : dan.firth@homotopic.tech
-- Stability : experimental
--
-- Loeb's theorem for vinyl extensible records.
module
Data.Vinyl.Loeb
(
rloeb
,
)
where
import
Data.Vinyl
import
Data.Vinyl.Functor
...
...
@@ -18,5 +19,5 @@ import Data.Vinyl.Functor
-- | Version of loeb's theorem for extensible records. Can be
-- used to fill an extensible record lazily using data from
-- the result of the record itself.
rloeb
::
RMap
xs
=>
Rec
((
->
)
(
Rec
f
xs
)
:.
f
)
xs
->
Rec
f
xs
rloeb
::
RMap
xs
=>
Rec
((
->
)
(
Rec
f
xs
)
:.
f
)
xs
->
Rec
f
xs
rloeb
x
=
go
where
go
=
rmap
((
$
go
)
.
getCompose
)
x
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment