From 5bfaf10de597af504e6d2784309e533b09a6451c Mon Sep 17 00:00:00 2001 From: hallgren Date: Fri, 28 Aug 2015 13:59:43 +0000 Subject: Comment out some dead code found with -fwarn-unused-binds Also fixed some warnings and tightened some imports --- src/runtime/haskell/PGF/Forest.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/runtime/haskell/PGF/Forest.hs') diff --git a/src/runtime/haskell/PGF/Forest.hs b/src/runtime/haskell/PGF/Forest.hs index bb4ba29af..2a680b7c9 100644 --- a/src/runtime/haskell/PGF/Forest.hs +++ b/src/runtime/haskell/PGF/Forest.hs @@ -71,7 +71,7 @@ bracketedTokn dp f@(Forest abs cnc forest root) = in (ct,fid',fun,es,(map getVar hypos,lin)) Nothing -> error ("wrong forest id " ++ show fid) where - descend forest (PApply funid args) = let (CncFun fun lins) = cncfuns cnc ! funid + descend forest (PApply funid args) = let (CncFun fun _lins) = cncfuns cnc ! funid cat = case isLindefCId fun of Just cat -> cat Nothing -> case Map.lookup fun (funs abs) of @@ -132,7 +132,7 @@ getAbsTrees (Forest abs cnc forest root) arg@(PArg _ fid) ty dp = | otherwise = do fid0 <- get put fid x <- foldForest (\funid args trees -> - do let CncFun fn lins = cncfuns cnc ! funid + do let CncFun fn _lins = cncfuns cnc ! funid case isLindefCId fn of Just _ -> do arg <- go (Set.insert fid rec_) scope mb_tty (head args) return (mkAbs arg) -- cgit v1.2.3