purescript-0.15.15: tests/purs/passing/Stream.purs

module Main where

import Prelude

import Effect (Effect)
import Effect.Console (log)

class IsStream el s | s -> el where
  cons :: el -> (Unit -> s) -> s
  uncons :: s -> { head :: el, tail :: s }

data Stream a = Stream a (Unit -> Stream a)

instance streamIsStream :: IsStream a (Stream a) where
  cons x xs = Stream x xs
  uncons (Stream x f) = { head: x, tail: f unit }

test :: forall el s. IsStream el s => s -> s
test s = case uncons s of
           { head, tail } -> cons head \_ -> tail

main :: Effect Unit
main = do
  let dones :: Stream String
      dones = cons "Done" \_ -> dones
  log (uncons (test dones)).head