From 1892f8c0baa8f264cb93735000d24fa5ea50c0cb Mon Sep 17 00:00:00 2001
From: Joshua Clayton <joshua.clayton@gmail.com>
Date: Thu, 23 Jun 2016 22:44:23 -0400
Subject: [PATCH] Extract error headers

---
 src/Unused/CLI/Views/Error.hs                | 15 +++++++++++++++
 src/Unused/CLI/Views/InvalidConfigError.hs   |  9 ++-------
 src/Unused/CLI/Views/MissingTagsFileError.hs | 11 +++--------
 unused.cabal                                 |  1 +
 4 files changed, 21 insertions(+), 15 deletions(-)
 create mode 100644 src/Unused/CLI/Views/Error.hs

diff --git a/src/Unused/CLI/Views/Error.hs b/src/Unused/CLI/Views/Error.hs
new file mode 100644
index 0000000..dbfe178
--- /dev/null
+++ b/src/Unused/CLI/Views/Error.hs
@@ -0,0 +1,15 @@
+module Unused.CLI.Views.Error
+    ( errorHeader
+    ) where
+
+import Unused.CLI.Util
+
+errorHeader :: String -> IO ()
+errorHeader s = do
+    setSGR [SetColor Background Vivid Red]
+    setSGR [SetColor Foreground Vivid White]
+    setSGR [SetConsoleIntensity BoldIntensity]
+
+    putStrLn $ "\n" ++ s ++ "\n"
+
+    setSGR [Reset]
diff --git a/src/Unused/CLI/Views/InvalidConfigError.hs b/src/Unused/CLI/Views/InvalidConfigError.hs
index 8126e15..44083fc 100644
--- a/src/Unused/CLI/Views/InvalidConfigError.hs
+++ b/src/Unused/CLI/Views/InvalidConfigError.hs
@@ -3,17 +3,12 @@ module Unused.CLI.Views.InvalidConfigError
     ) where
 
 import Unused.CLI.Util
+import Unused.CLI.Views.Error
 import Unused.ResultsClassifier (ParseConfigError(..))
 
 invalidConfigError :: [ParseConfigError] -> IO ()
 invalidConfigError es = do
-    setSGR [SetColor Background Vivid Red]
-    setSGR [SetColor Foreground Vivid White]
-    setSGR [SetConsoleIntensity BoldIntensity]
-
-    putStrLn "\nThere was a problem with the following config file(s):\n"
-
-    setSGR [Reset]
+    errorHeader "There was a problem with the following config file(s):"
 
     mapM_ configError es
 
diff --git a/src/Unused/CLI/Views/MissingTagsFileError.hs b/src/Unused/CLI/Views/MissingTagsFileError.hs
index 8cde5a4..9058b0f 100644
--- a/src/Unused/CLI/Views/MissingTagsFileError.hs
+++ b/src/Unused/CLI/Views/MissingTagsFileError.hs
@@ -4,18 +4,13 @@ module Unused.CLI.Views.MissingTagsFileError
 
 import Unused.TagsSource
 import Unused.CLI.Util
+import Unused.CLI.Views.Error
 
 missingTagsFileError :: TagSearchOutcome -> IO ()
 missingTagsFileError e = do
-    setSGR [SetColor Background Vivid Red]
-    setSGR [SetColor Foreground Vivid White]
-    setSGR [SetConsoleIntensity BoldIntensity]
-
-    putStrLn "\nThere was a problem finding a tags file.\n"
-
-    setSGR [Reset]
-
+    errorHeader "There was a problem finding a tags file."
     printOutcomeMessage e
+
     putStr "\n"
 
     setSGR [SetConsoleIntensity BoldIntensity]
diff --git a/unused.cabal b/unused.cabal
index 72d5944..8763d97 100644
--- a/unused.cabal
+++ b/unused.cabal
@@ -42,6 +42,7 @@ library
                      , Unused.CLI.GitContext
                      , Unused.CLI.Util
                      , Unused.CLI.Views
+                     , Unused.CLI.Views.Error
                      , Unused.CLI.Views.NoResultsFound
                      , Unused.CLI.Views.AnalysisHeader
                      , Unused.CLI.Views.GitSHAsHeader