Insert spaces around function composition.

Using foo.bar for function composition does not work
with the RecordDotSyntax extension, so insert some spaces.

Author: lennart-augustsson-epicgames

Language/Preprocessor/Cpphs/MacroPass.hs

@@ -167,7 +167,7 @@ macroProcess pr layout lang st (Ident p x: ws) =
                             Just (args,ws') ->
                                 if length args /= length (arguments hd) then
                                      emit x $ macroProcess pr layout lang st ws
-                                else do args' <- mapM (fmap (concat.onlyRights)
+                                else do args' <- mapM (fmap (concat . onlyRights)
                                                        . macroProcess pr layout
                                                                         lang st)
                                                       args

Language/Preprocessor/Cpphs/SymTab.hs

@@ -36,11 +36,11 @@ flattenST :: SymTab v -> [v]
 
 emptyST           = itgen maxHash []
 insertST (s,v) ss = itiap (hash s) ((s,v):)    ss id
-deleteST  s    ss = itiap (hash s) (filter ((/=s).fst)) ss id
-lookupST  s    ss = let vs = filter ((==s).fst) ((itind (hash s)) ss)
+deleteST  s    ss = itiap (hash s) (filter ((/=s) . fst)) ss id
+lookupST  s    ss = let vs = filter ((==s) . fst) ((itind (hash s)) ss)
                     in if null vs then Nothing
                        else (Just . snd . head) vs
-definedST s    ss = let vs = filter ((==s).fst) ((itind (hash s)) ss)
+definedST s    ss = let vs = filter ((==s) . fst) ((itind (hash s)) ss)
                     in (not . null) vs
 flattenST      ss = itfold (map snd) (++) ss