diff options
| author | adelon <22380201+adelon@users.noreply.github.com> | 2026-05-18 14:51:50 +0200 |
|---|---|---|
| committer | adelon <22380201+adelon@users.noreply.github.com> | 2026-05-18 14:51:50 +0200 |
| commit | 0e0168f26743429b7c06db300332ad6fca6533cf (patch) | |
| tree | 593cc0bdf49bfb870b7458759e63cc96667e2d14 | |
| parent | ca2df6248ed62629b688bb677009d79ae9b51fbc (diff) | |
Roll back spacing changes for minimal diff
| -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 |