From 310b40be31750bddc9bd186c09313423b2851e16 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Tue, 11 Jan 2022 13:31:00 +0100 Subject: [PATCH] strip redundant code --- src/compiler/GF/Compile/GeneratePMCFG.hs | 8 -------- 1 file changed, 8 deletions(-) diff --git a/src/compiler/GF/Compile/GeneratePMCFG.hs b/src/compiler/GF/Compile/GeneratePMCFG.hs index f6a57c1b6..cd52a9b9b 100644 --- a/src/compiler/GF/Compile/GeneratePMCFG.hs +++ b/src/compiler/GF/Compile/GeneratePMCFG.hs @@ -183,14 +183,6 @@ deepForce (VC v1 v2) = deepForce v1 >> deepForce v2 deepForce (VAlts def alts) = do deepForce def mapM_ (\(v,_) -> deepForce v) alts deepForce (VSymCat d r rs) = mapM_ (\(_,(tnk,_)) -> force tnk >>= deepForce) rs - where - compute r' [] = return (r',[]) - compute r' ((cnt',(tnk,ty)):tnks) = do - v <- force tnk - (r, rs,_) <- param2int v ty - (r',rs' ) <- compute r' tnks - return (r*cnt'+r',combine cnt' rs rs') - deepForce _ = return () str2lin (VApp q [])