diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs
index 650728be4..667febcf9 100644
--- a/src/GF/Speech/SRG.hs
+++ b/src/GF/Speech/SRG.hs
@@ -70,7 +70,7 @@ ebnfPrinter :: PGF -> CId -> String
 ebnfPrinter pgf cnc = prSRG $ makeSRG id pgf cnc
 
 makeSRG :: (CFG -> CFG) -> PGF -> CId -> SRG
-makeSRG preproces = mkSRG cfgToSRG id
+makeSRG = mkSRG cfgToSRG
     where
       cfgToSRG cfg = [cfRulesToSRGRule rs | (_,rs) <- allRulesGrouped cfg]