debugging gfcc bug; resulted in some type annotations to work around problems

1 files changed, 2 insertions, 2 deletions

diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs
index 043c2bd7e..cccbb2ca4 100644
--- a/src/GF/Grammar/Compute.hs
+++ b/src/GF/Grammar/Compute.hs
@@ -179,6 +179,7 @@ computeTermOpt rec gr = comp where
            vs <- allParamValues gr ptyp
            case lookup v' (zip vs [0 .. length vs - 1]) of
              Just i -> comp g $ ts !! i
+-----             _ -> prtBad "selection" $ S t' v' -- debug
              _ -> return $ S t' v' -- if v' is not canonical
 
          T (TComp _) cs -> do
@@ -196,8 +197,7 @@ computeTermOpt rec gr = comp where
          Alias _ _ d -> comp g (S d v')
 
          S (T i cs) e -> prawitz g i (flip S v') cs e
-
-	 _    -> returnC $ S t' v'
+         _    -> returnC $ S t' v'
 
      -- normalize away empty tokens
      K "" -> return Empty