Add make target %/fast.

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

diff --git a/symantic-lib/Language/Symantic/Lib/Function.hs b/symantic-lib/Language/Symantic/Lib/Function.hs
index 5a05381fb92a08776f7ade63c9c7bef364293ab4..0f77afbf7b461071ca8c0f2408abd81c2a597c9f 100644 (file)
--- a/symantic-lib/Language/Symantic/Lib/Function.hs
+++ b/symantic-lib/Language/Symantic/Lib/Function.hs
@@ -67,7 +67,7 @@ instance TypeInstancesFor (->)
 -- Compiling
 instance Gram_Term_AtomsFor src ss g (->)
 instance (Source src, Inj_Sym ss (->)) => ModuleFor src ss (->) where
-       moduleFor _s = ["Function"] `moduleWhere`
+       moduleFor = ["Function"] `moduleWhere`
         [ "const" := teFunction_const
         , "flip"  := teFunction_flip
         , "id"    := teFunction_id