diff options
Diffstat (limited to 'edit-lens/src/Control/Lens/Edit.lhs')
-rw-r--r-- | edit-lens/src/Control/Lens/Edit.lhs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/edit-lens/src/Control/Lens/Edit.lhs b/edit-lens/src/Control/Lens/Edit.lhs index 5a60536..0a679cb 100644 --- a/edit-lens/src/Control/Lens/Edit.lhs +++ b/edit-lens/src/Control/Lens/Edit.lhs | |||
@@ -1,13 +1,16 @@ | |||
1 | \begin{comment} | ||
1 | \begin{code} | 2 | \begin{code} |
2 | module Control.Lens.Edit | 3 | module Control.Lens.Edit |
3 | ( Module(..) | 4 | ( Module(..) |
4 | , StateMonoidHom | 5 | , StateMonoidHom |
5 | , HasEditLens(..) | 6 | , HasEditLens(..) |
6 | , EditLens(..) | 7 | , EditLens(..) |
8 | , module Control.Edit | ||
7 | ) where | 9 | ) where |
8 | 10 | ||
9 | import Control.Edit | 11 | import Control.Edit |
10 | \end{code} | 12 | \end{code} |
13 | \end{comment} | ||
11 | 14 | ||
12 | \begin{defn}[Zustandsbehaftete Monoidhomomorphismen] | 15 | \begin{defn}[Zustandsbehaftete Monoidhomomorphismen] |
13 | Mit einer Menge von Komplementen $C$ und Monoiden $M$ und $N$ nennen wir eine partielle Funktion $\psi \colon C \times M \to C \times N$ einen zustandsbehafteten Monoidhomomorphismus wenn sie den folgenden Ansprüchen genügt: | 16 | Mit einer Menge von Komplementen $C$ und Monoiden $M$ und $N$ nennen wir eine partielle Funktion $\psi \colon C \times M \to C \times N$ einen zustandsbehafteten Monoidhomomorphismus wenn sie den folgenden Ansprüchen genügt: |
@@ -45,7 +48,7 @@ In Haskell erwähnen wir die Konsistenzrelation nicht in der Erwartung, dass $\R | |||
45 | 48 | ||
46 | \begin{code} | 49 | \begin{code} |
47 | data EditLens c m n where | 50 | data EditLens c m n where |
48 | EditLens :: (Module m, Module n) => c -> StateMonoidHom c m n -> StateMonoidHom c n m -> EditLens c m n | 51 | EditLens :: c -> StateMonoidHom c m n -> StateMonoidHom c n m -> EditLens c m n |
49 | 52 | ||
50 | class (Module m, Module n) => HasEditLens l m n | l -> m, l -> n where | 53 | class (Module m, Module n) => HasEditLens l m n | l -> m, l -> n where |
51 | type Complement l :: * | 54 | type Complement l :: * |