@@ -191,7 +191,7 @@ parseFormatSpec = parse formatSpec ""
191 where formatSpec = do
191 where formatSpec = do
192 name <- formatName
192 name <- formatName
193 extMods <- many extMod
193 extMods <- many extMod
194− return (name, foldl (.) id extMods)
194+ return (name, \x -> foldl (flip ($)) x extMods)
195 formatName = many1 $ noneOf "-+"
195 formatName = many1 $ noneOf "-+"
196 extMod = do
196 extMod = do
197 polarity <- oneOf "-+"
197 polarity <- oneOf "-+"