Fix description.

[haskell/symantic.git] / symantic-lib / Language / Symantic / Lib / Either.hs

diff --git a/symantic-lib/Language/Symantic/Lib/Either.hs b/symantic-lib/Language/Symantic/Lib/Either.hs
index cb284171db44fd1795bc027e2328760b504907d9..78fed3527f37af02417026fb0cd82ce12293fec3 100644 (file)
--- a/symantic-lib/Language/Symantic/Lib/Either.hs
+++ b/symantic-lib/Language/Symantic/Lib/Either.hs
@@ -80,8 +80,8 @@ instance TypeInstancesFor Either where
 
 -- Compiling
 instance Gram_Term_AtomsFor src ss g Either
-instance (Source src, Inj_Sym ss Either) => Module src ss Either where
-       module_ _s = [] `moduleWhere`
+instance (Source src, Inj_Sym ss Either) => ModuleFor src ss Either where
+       moduleFor _s = ["Either"] `moduleWhere`
         [ "Left"   := teEither_Left
         , "Right"  := teEither_Right
         , "either" := teEither_either