11 lines
247 B
Elm
11 lines
247 B
Elm
module Trampoline (Trampoline, trampoline)
|
|
where
|
|
|
|
{-| -}
|
|
import Native.Trampoline
|
|
import open Either
|
|
|
|
data Trampoline a = Trampoline (Either a (() -> Trampoline a))
|
|
|
|
trampoline : Trampoline a -> a
|
|
trampoline = Native.Trampoline.trampoline
|