allow spaces between command options; option -treebank in linearize

src-3.0/PGF/Morphology.hs

@@ -1,6 +1,6 @@
 module PGF.Morphology where
 
-import PGF.ShowLinearize
+import PGF.ShowLinearize (collectWords)
 import PGF.Data
 import PGF.CId
 
@@ -30,17 +30,3 @@ type Analysis = String
 noAnalysis :: [(Lemma,Analysis)]
 noAnalysis = []
 
-collectWords :: PGF -> CId -> [(String, [(Lemma,Analysis)])]
-collectWords pgf lang = 
-    concatMap collOne 
-      [(f,c,0) | (f,(DTyp [] c _,_)) <- Map.toList $ funs $ abstract pgf] 
-  where
-    collOne (f,c,i) = 
-      fromRec f [prCId c] (recLinearize pgf lang (EApp f (replicate i (EMeta 888))))
-    fromRec f v r = case r of
-      RR  rs -> concat [fromRec f v t | (_,t) <- rs] 
-      RT  rs -> concat [fromRec f (p:v) t | (p,t) <- rs]
-      RFV rs -> concatMap (fromRec f v) rs
-      RS  s  -> [(s,[(prCId f,unwords (reverse v))])]
-      RCon c -> [] ---- inherent
-