summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Config/Parse.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-12 04:01:51 +0100
committerjao <jao@gnu.org>2022-09-12 04:01:51 +0100
commit15c373076dec81c3245e42250512dea6a75db5e9 (patch)
treec10be286b9e477137a53b4b63fe4148be7f0f6c1 /src/Xmobar/Config/Parse.hs
parenteaf2be9bbcf1b0597a52b14d28e0252ec4714bee (diff)
downloadxmobar-15c373076dec81c3245e42250512dea6a75db5e9.tar.gz
xmobar-15c373076dec81c3245e42250512dea6a75db5e9.tar.bz2
cairo: with_xft deprecated, with_cairo synomym
Diffstat (limited to 'src/Xmobar/Config/Parse.hs')
-rw-r--r--src/Xmobar/Config/Parse.hs11
1 files changed, 1 insertions, 10 deletions
diff --git a/src/Xmobar/Config/Parse.hs b/src/Xmobar/Config/Parse.hs
index 65e1af8..41088e9 100644
--- a/src/Xmobar/Config/Parse.hs
+++ b/src/Xmobar/Config/Parse.hs
@@ -26,16 +26,7 @@ import Data.Functor ((<&>))
import Xmobar.Config.Types
-#ifdef XFT
import qualified System.IO as S (readFile)
-#endif
-
-readFileSafe :: FilePath -> IO String
-#ifdef XFT
-readFileSafe = S.readFile
-#else
-readFileSafe = readFile
-#endif
stripComments :: String -> String
stripComments =
@@ -182,4 +173,4 @@ commandsErr = "commands: this usually means that a command could not" ++
-- parsed.
readConfig :: Config -> FilePath -> IO (Either ParseError (Config,[String]))
readConfig defaultConfig f =
- liftIO (readFileSafe f) <&> parseConfig defaultConfig
+ liftIO (S.readFile f) <&> parseConfig defaultConfig