diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-# *H Y L I D E*
+# *H Y L I D E* [![Hackage Status](https://img.shields.io/hackage/v/hylide.svg)](https://hackage.haskell.org/package/hylide) [![Join the chat at https://gitter.im/sleexyz/hylogen](https://badges.gitter.im/sleexyz/hylogen.svg)](https://gitter.im/sleexyz/hylogen?utm_source=badge&utm_medium=badge&utm_campaign=pr-badge&utm_content=badge)
 
 WebGL rendering environment for livecoding shaders with [Hylogen](https://github.com/sleexyz/hylogen).
 
diff --git a/app/Main.hs b/app/Main.hs
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -41,7 +41,7 @@
 main' pathToWatch = do
   tid1 <- forkIO serveIndex
   tid2 <- forkIO $ serveGLSL pathToWatch
-  putStrLn "Press enter to exit."
+  putStrLn $ "Serving on port "++show servePort++". Press enter to exit."
   void getLine
   killThread tid1
   killThread tid2
@@ -104,12 +104,13 @@
 --      ExitSuccess   -> return (Code stdout)
 --      ExitFailure _ -> return (Err stderr)
 
+servePort = 5678
+
 serveIndex :: IO ()
 serveIndex = do
-  let port = 5678
   htmlString <- readFile =<< getDataFileName "client/dist-local/index.html"
   jsString <- readFile =<< getDataFileName "client/dist-local/bundle.js"
-  run port $ app htmlString jsString
+  run servePort $ app htmlString jsString
 
 
 app :: String -> String -> Application
diff --git a/hylide.cabal b/hylide.cabal
--- a/hylide.cabal
+++ b/hylide.cabal
@@ -1,7 +1,7 @@
 name:                hylide
-version:             0.1.4.0
-synopsis:            Livecoding WebGL renderer for Hylogen
-description:         Livecoding WebGL renderer for Hylogen
+version:             0.1.4.1
+synopsis:            WebGL renderer for livecoding shaders with Hylogen
+description:         WebGL renderer for livecoding shaders with Hylogen
 homepage:            https://github.com/sleexyz/hylide
 author:              Sean Lee
 license:             MIT