From bbdbf2bc5d34d75cef032b395e4a5cc35a89066d Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Fri, 1 Sep 2017 14:31:08 +0200 Subject: silence Tab warnings in the Haskell runtime --- src/runtime/haskell/PGF/Parse.hs | 42 ++++++++++++++++++++-------------------- 1 file changed, 21 insertions(+), 21 deletions(-) (limited to 'src/runtime/haskell/PGF/Parse.hs') diff --git a/src/runtime/haskell/PGF/Parse.hs b/src/runtime/haskell/PGF/Parse.hs index 322385a84..51b1d3273 100644 --- a/src/runtime/haskell/PGF/Parse.hs +++ b/src/runtime/haskell/PGF/Parse.hs @@ -297,27 +297,27 @@ process flit ftok cnc (item@(Active j ppos funid seqid args key0):items) acc cha Nothing -> process flit ftok cnc items4 acc' chart{active=insertAC key (Set.singleton item,new_sc) (active chart)} Just (set,sc) | Set.member item set -> process flit ftok cnc items acc chart | otherwise -> process flit ftok cnc items2 acc chart{active=insertAC key (Set.insert item set,IntMap.unionWith Set.union new_sc sc) (active chart)} - SymKS tok -> let !acc' = ftok_ [tok] (Active j (ppos+1) funid seqid args key0) acc - in process flit ftok cnc items acc' chart - SymNE -> process flit ftok cnc items acc chart - SymBIND -> let !acc' = ftok_ ["&+"] (Active j (ppos+1) funid seqid args key0) acc - in process flit ftok cnc items acc' chart - SymSOFT_BIND->process flit ftok cnc ((Active j (ppos+1) funid seqid args key0):items) acc chart - SymSOFT_SPACE->process flit ftok cnc ((Active j (ppos+1) funid seqid args key0):items) acc chart - SymCAPIT -> let !acc' = ftok_ ["&|"] (Active j (ppos+1) funid seqid args key0) acc - in process flit ftok cnc items acc' chart - SymALL_CAPIT->let !acc' = ftok_ ["&|"] (Active j (ppos+1) funid seqid args key0) acc - in process flit ftok cnc items acc' chart - SymKP syms vars - -> let to_tok (SymKS t) = [t] - to_tok SymBIND = ["&+"] - to_tok SymSOFT_BIND = [] - to_tok SymSOFT_SPACE= [] - to_tok SymCAPIT = ["&|"] - to_tok SymALL_CAPIT = ["&|"] - to_tok _ = [] - - !acc' = foldl (\acc syms -> ftok_ (concatMap to_tok syms) (Active j (ppos+1) funid seqid args key0) acc) acc + SymKS tok -> let !acc' = ftok_ [tok] (Active j (ppos+1) funid seqid args key0) acc + in process flit ftok cnc items acc' chart + SymNE -> process flit ftok cnc items acc chart + SymBIND -> let !acc' = ftok_ ["&+"] (Active j (ppos+1) funid seqid args key0) acc + in process flit ftok cnc items acc' chart + SymSOFT_BIND->process flit ftok cnc ((Active j (ppos+1) funid seqid args key0):items) acc chart + SymSOFT_SPACE->process flit ftok cnc ((Active j (ppos+1) funid seqid args key0):items) acc chart + SymCAPIT -> let !acc' = ftok_ ["&|"] (Active j (ppos+1) funid seqid args key0) acc + in process flit ftok cnc items acc' chart + SymALL_CAPIT->let !acc' = ftok_ ["&|"] (Active j (ppos+1) funid seqid args key0) acc + in process flit ftok cnc items acc' chart + SymKP syms vars + -> let to_tok (SymKS t) = [t] + to_tok SymBIND = ["&+"] + to_tok SymSOFT_BIND = [] + to_tok SymSOFT_SPACE= [] + to_tok SymCAPIT = ["&|"] + to_tok SymALL_CAPIT = ["&|"] + to_tok _ = [] + + !acc' = foldl (\acc syms -> ftok_ (concatMap to_tok syms) (Active j (ppos+1) funid seqid args key0) acc) acc (syms:[syms' | (syms',_) <- vars]) in process flit ftok cnc items acc' chart SymLit d r -> let PArg hypos fid = args !! d -- cgit v1.2.3