feedback 0.1.0.3 → 0.1.0.4

raw patch · 3 files changed

+7/−4 lines, 3 files

Files

• feedback.cabal +1/−1
• src/Feedback/Common/OptParse.hs +2/−2
• src/Feedback/Loop.hs +4/−1

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           feedback-version:        0.1.0.3+version:        0.1.0.4 synopsis:       Declarative feedback loop manager homepage:       https://github.com/NorfairKing/feedback#readme bug-reports:    https://github.com/NorfairKing/feedback/issues

@@ -20,7 +20,7 @@ import qualified Env import GHC.Generics (Generic) import Options.Applicative as OptParse-import qualified Options.Applicative.Help as OptParse (string)+import qualified Options.Applicative.Help as OptParse (pretty) import Path import Path.IO import Paths_feedback@@ -367,7 +367,7 @@     ( mconcat         [ OptParse.progDesc versionStr,           OptParse.fullDesc,-          OptParse.footerDoc (Just $ OptParse.string footerStr)+          OptParse.footerDoc (Just $ OptParse.pretty footerStr)         ]     )   where

@@ -316,7 +316,10 @@                       Added {} -> fore green " added    "                       Modified {} -> fore yellow " modified "                       Removed {} -> fore red " removed  "-                      Unknown {} -> " unknown  ",+                      Unknown {} -> " unknown  "+                      ModifiedAttributes {} -> fore yellow " modified "+                      WatchedDirectoryRemoved {} -> fore red " removed "+                      CloseWrite {} -> fore yellow " modified ",                     chunk $ T.pack $ eventPath fsEvent                   ]                 StdinEvent c -> [fore magenta "manual restart: ", chunk $ T.pack $ show c]