diff options
| -rw-r--r-- | src/compiler/GF/Compile/GeneratePmcfgPre.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Compile/GeneratePmcfgPre.hs b/src/compiler/GF/Compile/GeneratePmcfgPre.hs index 770fa8207..6b5d32cd5 100644 --- a/src/compiler/GF/Compile/GeneratePmcfgPre.hs +++ b/src/compiler/GF/Compile/GeneratePmcfgPre.hs @@ -569,8 +569,8 @@ evalTerm path (V pt ts) = do vs <- getAllParamValues pt case lookup trm (zip vs ts) of Just t -> evalTerm path t - Nothing -> ppbug $ "evalTerm: missing value:" <+> trm - $$ "among:" <+> fsep (map (ppU 10) vs) + Nothing -> ppbug $ "evalTerm: missing value:"<+>trm + $$ "among:" <+>fsep (map (ppU 10) vs) evalTerm path (S term sel) = do v <- evalTerm CNil sel evalTerm (CSel v path) term evalTerm path (FV terms) = variants terms >>= evalTerm path |