diff --git a/src/GitHub/Tools/Changelogs.hs b/src/GitHub/Tools/Changelogs.hs
index ee62442..9fe10ec 100644
--- a/src/GitHub/Tools/Changelogs.hs
+++ b/src/GitHub/Tools/Changelogs.hs
@@ -141,9 +141,7 @@ makeChangeLog wantRoadmap ownerName repoName pulls issues =
     reverseIfChangelog l =
       if wantRoadmap
         then l
-        else case reverse l of
-          []   -> []
-          x:xs -> xs ++ [x] -- Put "Backlog" last.
+        else reverse l
 
     sortChangelog :: [(Text, [Text], [Text])] -> [(Text, [Text], [Text])]
     sortChangelog = List.sortOn $ \(v, _, _) -> parseVersion v
diff --git a/tools/hub-changelog.hs b/tools/hub-changelog.hs
index b32a991..3aaabac 100644
--- a/tools/hub-changelog.hs
+++ b/tools/hub-changelog.hs
@@ -3,7 +3,7 @@ module Main (main) where
 
 import qualified Data.ByteString.Char8   as BS8
 import           Data.String             (fromString)
-import qualified Data.Text               as Text
+import qualified Data.Text.IO            as Text
 import qualified GitHub
 import           System.Environment      (getArgs, lookupEnv)
 
@@ -17,7 +17,7 @@ main = do
   -- Get auth token from the $GITHUB_TOKEN environment variable.
   auth <- fmap (GitHub.OAuth . BS8.pack) <$> lookupEnv "GITHUB_TOKEN"
 
-  fetchChangeLog False ownerName repoName auth >>= putStr . Text.unpack . formatChangeLog False
+  fetchChangeLog False ownerName repoName auth >>= Text.putStr . formatChangeLog False
 
   where
     repoLocation [] =
diff --git a/tools/hub-pulls.hs b/tools/hub-pulls.hs
index 88b55b6..6b57017 100644
--- a/tools/hub-pulls.hs
+++ b/tools/hub-pulls.hs
@@ -2,7 +2,7 @@
 module Main (main) where
 
 import qualified Data.ByteString.Char8   as BS8
-import qualified Data.Text               as Text
+import qualified Data.Text.IO            as Text
 import qualified GitHub
 import           System.Environment      (getEnv, lookupEnv)
 
@@ -17,4 +17,4 @@ main = do
   -- Check if we need to produce HTML or ASCII art.
   wantHtml <- (/= Nothing) <$> lookupEnv "GITHUB_WANT_HTML"
 
-  putStrLn . Text.unpack =<< getPullStatus "TokTok" "TokTok" wantHtml auth
+  Text.putStrLn =<< getPullStatus "TokTok" "TokTok" wantHtml auth
diff --git a/tools/hub-roadmap.hs b/tools/hub-roadmap.hs
index 191b665..07e10ac 100644
--- a/tools/hub-roadmap.hs
+++ b/tools/hub-roadmap.hs
@@ -3,7 +3,7 @@ module Main (main) where
 
 import qualified Data.ByteString.Char8   as BS8
 import           Data.String             (fromString)
-import qualified Data.Text               as Text
+import qualified Data.Text.IO            as Text
 import qualified GitHub
 import           System.Environment      (getArgs, lookupEnv)
 
@@ -17,7 +17,7 @@ main = do
   -- Get auth token from the $GITHUB_TOKEN environment variable.
   auth <- fmap (GitHub.OAuth . BS8.pack) <$> lookupEnv "GITHUB_TOKEN"
 
-  fetchChangeLog True ownerName repoName auth >>= putStr . Text.unpack . formatChangeLog True
+  fetchChangeLog True ownerName repoName auth >>= Text.putStr . formatChangeLog True
 
   where
     repoLocation [] =