Merge pull request #42 from a1346054/fixes

Trim trailing whitespace

Author: psibi

src/Tldr/App.hs

@@ -78,7 +78,7 @@ noColorFlag =
     (flag' NoColor
         (long "no-color" <>
         help
-          "Disable colored output")) 
+          "Disable colored output"))
 
 colorFlags :: Parser (Maybe ColorSetting)
 colorFlags = useColorFlag <|> noColorFlag

src/Tldr/App/Handler.hs

@@ -72,7 +72,7 @@ handleTldrOpts opts@TldrOpts {..} =
     About -> handleAboutFlag
     ViewPage voptions pages -> do
       shouldPerformUpdate <- updateNecessary opts
-      when shouldPerformUpdate updateTldrPages 
+      when shouldPerformUpdate updateTldrPages
       let npage = intercalate "-" pages
       locale <-
         case languageOption voptions of
@@ -82,7 +82,7 @@ handleTldrOpts opts@TldrOpts {..} =
       case fname of
         Just path -> do
           defColor <- getNoColorEnv
-          let color = fromMaybe defColor colorSetting 
+          let color = fromMaybe defColor colorSetting
           renderPage path stdout color
         Nothing ->
           if checkLocale locale
@@ -99,13 +99,13 @@ updateNecessary :: TldrOpts -> IO Bool
 updateNecessary TldrOpts{..} = do
   dataDir <- getXdgDirectory XdgData tldrDirName
   dataDirExists <- doesDirectoryExist dataDir
-  if not dataDirExists 
+  if not dataDirExists
     then return True
     else do
       lastCachedTime <- getModificationTime dataDir
       currentTime <- getCurrentTime
-      let diffExceedsLimit limit 
-            = currentTime `diffUTCTime` lastCachedTime 
+      let diffExceedsLimit limit
+            = currentTime `diffUTCTime` lastCachedTime
               > fromIntegral limit * nominalDay
       return $ maybe False diffExceedsLimit autoUpdateInterval
 

src/Tldr/Types.hs

@@ -4,7 +4,7 @@ import System.Console.ANSI
 
 data Locale = English | Missing | Other String | Unknown String
 
-data ColorSetting = NoColor | UseColor 
+data ColorSetting = NoColor | UseColor
   deriving (Eq, Show, Ord, Enum, Bounded)
 
 data ConsoleSetting =

test/Spec.hs

@@ -28,7 +28,7 @@ commandTest str = goldenVsFile (str <> " test") (golden str) (output str) (rende
       md cmd = prefix <> cmd <> ".md"
 
 gtests :: TestTree
-gtests = testGroup "(render test)" 
+gtests = testGroup "(render test)"
          [
           commandTest "ls"
          , commandTest "ps"