Simplify analyser terminal

src/Dodge/Terminal/Color.hs

@@ -12,3 +12,4 @@ termScreenColor tm = case tm ^. tmStatus of
     TerminalTextInput _ -> Just green
     TerminalPressTo{} -> Just green
     TerminalLineRead -> Just white
+    TerminalWaiting -> Just green

src/Dodge/Terminal/Type.hs

@@ -1,7 +1,4 @@
-module Dodge.Terminal.Type (
-    getPromptTM,
-    getMaxLinesTM,
-) where
+module Dodge.Terminal.Type ( getPromptTM, getMaxLinesTM) where
 
 getPromptTM :: String
 getPromptTM = "> "