diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-03-03 20:51:03 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-03-03 20:51:03 +0000 |
| commit | 3ff765620c9df08212275b5a3f207fd939a60922 (patch) | |
| tree | 0c33b782770bd19620c20d21ea4211a3af0206f0 /src/GF/Compile | |
| parent | e6f115a3006a64930f4bfd889dd215074c862cbb (diff) | |
distinguished uni and multi treebanks
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 269b9adb1..0718814c5 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -75,7 +75,7 @@ data ShellState = ShSt { transfers :: [(Ident,T.Env)] -- ^ transfer modules } -type Treebank = Map.Map String [(String,String)] -- lang, tree +type Treebank = Map.Map String [String] -- string, trees actualConcretes :: ShellState -> [((Ident,Ident),Bool)] actualConcretes sh = nub [((c,c),b) | @@ -480,9 +480,8 @@ addTransfer :: (Ident,T.Env) -> ShellState -> ShellState addTransfer it@(i,_) sh = sh {transfers = it : filter ((/= i) . fst) (transfers sh)} -addTreebank :: (Ident,Treebank) -> ShellState -> ShellState -addTreebank it@(i,_) sh = - sh {treebanks = it : filter ((/= i) . fst) (treebanks sh)} +addTreebanks :: [(Ident,Treebank)] -> ShellState -> ShellState +addTreebanks its sh = sh {treebanks = its ++ treebanks sh} findTreebank :: ShellState -> Ident -> Err Treebank findTreebank sh i = maybeErr "no treebank found" $ lookup i $ treebanks sh |