0f7c0ac8bf
Also move parser combinators into the more specific namespace `init.lean.parser.parser_t`.
20 lines
499 B
Text
20 lines
499 B
Text
/-
|
||
Copyright (c) 2017 Microsoft Corporation. All rights reserved.
|
||
Released under Apache 2.0 license as described in the file LICENSE.
|
||
Authors: Sebastian Ullrich
|
||
|
||
The identity monad.
|
||
-/
|
||
prelude
|
||
import init.control.lift
|
||
universe u
|
||
|
||
@[inline] def id.bind {α β : Type u} (x : α) (f : α → id β) : id β := f x
|
||
|
||
@[inline] instance : monad.{u u} id :=
|
||
{ pure := @id, bind := @id.bind }
|
||
|
||
@[inline] def id.run {α : Type u} (x : id α) : α := x
|
||
|
||
@[inline] instance : monad_run id id :=
|
||
⟨@id.run⟩
|