From 22b5b12a2a80835eb5792f3687106084eb95bd0d Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 23 Jun 2005 13:32:43 +0000
Subject: finnish vowel harmony unlexer ; optimizations and mcfg

---
 src/GF/Conversion/GFCtoSimple.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/GF/Conversion')

diff --git a/src/GF/Conversion/GFCtoSimple.hs b/src/GF/Conversion/GFCtoSimple.hs
index bd895155d..07a1da9e2 100644
--- a/src/GF/Conversion/GFCtoSimple.hs
+++ b/src/GF/Conversion/GFCtoSimple.hs
@@ -4,9 +4,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/06/23 13:23:01 $ 
--- > CVS $Author: peb $
--- > CVS $Revision: 1.11 $
+-- > CVS $Date: 2005/06/23 14:32:44 $ 
+-- > CVS $Author: aarne $
+-- > CVS $Revision: 1.12 $
 --
 -- Converting GFC to SimpleGFC
 --
@@ -138,6 +138,7 @@ convertPatt (A.PC con pats) = con :^ map convertPatt pats
 -- convertPatt (A.PW)          = Wildcard
 convertPatt (A.PR rec)      = Rec [ (lbl, convertPatt pat) | A.PAss lbl pat <- rec ]
 convertPatt (A.PI n)        = error "GFCtoSimple.convertPatt: cannot handle 'PI' constructor"
+convertPatt p               = error $ "GFCtoSimple.convertPatt: cannot handle " ++ show p
 
 ----------------------------------------------------------------------
 
-- 
cgit v1.2.3