Skip to content

Instantly share code, notes, and snippets.

@BekaValentine
Created September 5, 2018 10:12
Show Gist options
  • Select an option

  • Save BekaValentine/b340e737edae9b1dc5ff3eda67eb3ea5 to your computer and use it in GitHub Desktop.

Select an option

Save BekaValentine/b340e737edae9b1dc5ff3eda67eb3ea5 to your computer and use it in GitHub Desktop.
Data_List :: forall r :: *.
(forall list :: * -> *.
(forall a. list a) ->
(forall a. a -> list a -> list a) ->
(forall a b. (() -> b) -> (a -> list a -> b) -> b) ->
r)
-> r
Data_List dependee =
dependee {\a -> Fix l. (forall b. (() -> b) -> (a -> l a -> b) -> b)}
<scott encoded nil>
<scott encoded cons>
<scott encoded case>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment