Skip to content

Instantly share code, notes, and snippets.

@MarcelineVQ
Created September 9, 2019 22:55
Show Gist options
  • Select an option

  • Save MarcelineVQ/21aae3380bdd833f6e793d48fd0d29ab to your computer and use it in GitHub Desktop.

Select an option

Save MarcelineVQ/21aae3380bdd833f6e793d48fd0d29ab to your computer and use it in GitHub Desktop.
module Main
symbols : Stream Char
symbols = cycle (unpack "abc")
main : IO ()
main = do
print $ take 10 symbols
idris test2.idr -o test2
case (Prelude.List.Nil()) of
| Prelude.List.::({in_6}, {in_7}) => Prelude.Stream.::({in_6}, lazy{ Prelude.Stream.cycle, cycle'(____, {in_6}, {in_7}, {in_7}) })
idris: Can't happen pickAlt - impossible case found
^ -- src/IRTS/LangOpts.hs:conOpt
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment