Add symantic-document.

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

diff --git a/symantic-lib/Language/Symantic/Lib/Foldable.hs b/symantic-lib/Language/Symantic/Lib/Foldable.hs
index 098b555c32c108ff173bb7d3c48f628e64286f78..5b093dce6b1b916b30f1d46a80915b0d69a62ef4 100644 (file)
--- a/symantic-lib/Language/Symantic/Lib/Foldable.hs
+++ b/symantic-lib/Language/Symantic/Lib/Foldable.hs
@@ -243,8 +243,8 @@ instance TypeInstancesFor Foldable
 
 -- Compiling
 instance Gram_Term_AtomsFor src ss g Foldable
-instance (Source src, Inj_Sym ss Foldable) => Module src ss Foldable where
-       module_ _s = [] `moduleWhere`
+instance (Source src, Inj_Sym ss Foldable) => ModuleFor src ss Foldable where
+       moduleFor _s = ["Foldable"] `moduleWhere`
         [ "foldMap" := teFoldable_foldMap
         , "foldr"   := teFoldable_foldr
         , "foldr'"  := teFoldable_foldr'