diff options
Diffstat (limited to 'src/GF/Canon')
| -rw-r--r-- | src/GF/Canon/Look.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs index 4318239b6..2126edd60 100644 --- a/src/GF/Canon/Look.hs +++ b/src/GF/Canon/Look.hs @@ -144,6 +144,8 @@ ccompute cnc = comp [] Con c xs -> liftM (Con c) $ mapM compt xs + K (KS []) -> return E --- should not be needed + _ -> return t where compt = comp g xs |