From ac3b8212a68052f99eba2bd74a2dd8aa9ca2dcb2 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 1 Oct 2022 02:58:23 +0100 Subject: a couple of superfluous IO usages removed --- src/Xmobar/Config/Template.hs | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'src/Xmobar/Config') diff --git a/src/Xmobar/Config/Template.hs b/src/Xmobar/Config/Template.hs index 28ccbe1..67ed061 100644 --- a/src/Xmobar/Config/Template.hs +++ b/src/Xmobar/Config/Template.hs @@ -21,23 +21,21 @@ import Control.Monad (guard, mzero) import Data.Maybe (fromMaybe) import Text.Parsec ((<|>)) +import Text.Read (readMaybe) + import qualified Text.Parsec as P import qualified Text.Parsec.Combinator as C -import Text.ParserCombinators.Parsec (Parser) -import Text.Read (readMaybe) +import Text.ParserCombinators.Parsec (Parser) import Xmobar.Config.Types -- | Runs the template string parser -parseString :: Config -> String -> IO [Segment] +parseString :: Config -> String -> [Segment] parseString c s = case P.parse (stringParser ci 0 Nothing) "" s of - Left _ -> return [(Text $ "Could not parse string: " ++ s - , ci - , 0 - , Nothing)] - Right x -> return (concat x) + Left _ -> [(Text $ "Could not parse string: " ++ s , ci , 0 , Nothing)] + Right x -> concat x where ci = TextRenderInfo (fgColor c) 0 0 [] allParsers :: TextRenderInfo -> FontIndex -> Maybe [Action] -> Parser [Segment] -- cgit v1.2.3