From 249d506f58a8b5f8ef87295ab3dde2d13ddd3885 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 10 Nov 2003 07:55:45 +0000
Subject: Morphological analysis and glueing.

---
 src/GF/Canon/MkGFC.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/GF/Canon/MkGFC.hs')

diff --git a/src/GF/Canon/MkGFC.hs b/src/GF/Canon/MkGFC.hs
index 7547280a9..8f1e46b21 100644
--- a/src/GF/Canon/MkGFC.hs
+++ b/src/GF/Canon/MkGFC.hs
@@ -12,6 +12,9 @@ import qualified Modules as M
 prCanonModInfo :: CanonModule -> String
 prCanonModInfo = prt . info2mod
 
+prCanon :: CanonGrammar -> String
+prCanon = unlines . map prCanonModInfo . M.modules
+
 canon2grammar :: Canon -> CanonGrammar
 canon2grammar (Gr modules) = M.MGrammar $ map mod2info modules where
   mod2info m = case m of
-- 
cgit v1.2.3