Merge pull request #8 from ggarlic/ghc7.10

migrate to ghc 7.10
rnons · Nov 26, 2015 · 31d6323 · 31d6323
2 parents 105ddb0 + 78f26e2
commit 31d6323
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 1 deletion.
diff --git a/Web/Radio/Cmd.hs b/Web/Radio/Cmd.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TypeFamilies #-}
 -- | Module for interfacing <http://cmd.fm>

diff --git a/Web/Radio/Douban.hs b/Web/Radio/Douban.hs
@@ -180,7 +180,7 @@ pprChannels chs =
         putStrLn $ " cid=" ++ show (id c)
         setSGR [Reset]
         let folding = foldr (\x acc ->
-                      if x `elem` "\r\n" then ' ':acc else x:acc) []
+                      if x `elem` ['\r', '\n'] then ' ':acc else x:acc) []
         putStrLn $ "    Intro: " ++ folding (intro c)
         putStr "    Hot songs: "
         forM_ (hot_songs c) (\s -> putStr $ s ++ ", ")

diff --git a/Web/Radio/Reddit.hs b/Web/Radio/Reddit.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TypeFamilies #-}
 -- | Module for interfacing <http://radioreddit.com>