diff --git a/spy.cabal b/spy.cabal
--- a/spy.cabal
+++ b/spy.cabal
@@ -1,5 +1,5 @@
 name:               spy
-version:            0.12
+version:            0.13
 license:            BSD3
 license-file:       LICENSE
 author:             Stefan Saasen
diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -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
diff --git a/src/Spy/Color.hs b/src/Spy/Color.hs
--- a/src/Spy/Color.hs
+++ b/src/Spy/Color.hs
@@ -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