spy 0.12 → 0.13

raw patch · 3 files changed

+9/−4 lines, 3 files

Files

spy.cabal +1/−1
src/Main.hs +1/−1
src/Spy/Color.hs +7/−2

spy.cabal view

@@ -1,5 +1,5 @@ name:               spy-version:            0.12+version:            0.13 license:            BSD3 license-file:       LICENSE author:             Stefan Saasen

src/Main.hs view

@@ -7,7 +7,7 @@ import           System.FilePath        (addTrailingPathSeparator)  version :: String-version = "spy v0.12, (C) Stefan Saasen"+version = "spy v0.13, (C) Stefan Saasen"  watch :: Spy watch = Watch

src/Spy/Color.hs view

@@ -4,8 +4,8 @@   , yellow   , Color(..)   , Mode(..)-  , ansi   , bold+  , ansi ) where  data Color = Black | Blue | Green | Cyan | Purple | Red | Brown |@@ -34,9 +34,14 @@ ansi :: Mode -> Color -> String -> String ansi m c s = "\x1b["++ toCode m c ++ "m" ++ s ++ "\x1b[0m" --- "\033[1;34mT\033[0m"  +-- |+-- >>> toCode Foreground Green+-- "0;32"+--+-- >>> toCode Background LightPurple+-- "1;45" toCode :: Mode -> Color -> String toCode m Black        = asAnsi m 0 0 toCode m Blue         = asAnsi m 0 4