diff --git a/rest-gen.cabal b/rest-gen.cabal
--- a/rest-gen.cabal
+++ b/rest-gen.cabal
@@ -1,5 +1,5 @@
 Name:             rest-gen
-Version:          0.9.0.4
+Version:          0.9.0.5
 Description:      Documentation and client generation from rest definition.
 Synopsis:         Documentation and client generation from rest definition.
 Maintainer:       code@silk.co
@@ -35,12 +35,13 @@
     , filepath                  >= 1.2     &&  < 1.4
     , generic-aeson             == 0.1.*
     , happstack-server          >= 7.0.5   &&  < 7.4
+    , hashable                  >= 1.1     &&  < 1.3
     , hslogger                  >= 1.1     &&  < 1.3
     , hxt                       >= 9.2     &&  < 9.4
     , json-schema               == 0.4.*
     , mtl                       >= 2.0     &&  < 2.2
     , pretty                    >= 1.0     &&  < 1.2
-    , process                   >= 1.0     &&  < 1.2
+    , process                   >= 1.0     &&  < 1.3
     , regular                   == 0.3.*
     , rest-core                 == 0.27.*
     , rest-types                == 1.9.*
diff --git a/src/Rest/Gen.hs b/src/Rest/Gen.hs
--- a/src/Rest/Gen.hs
+++ b/src/Rest/Gen.hs
@@ -4,9 +4,9 @@
 import Data.Label
 import Data.Foldable
 import Data.Maybe
-import System.Cmd
 import System.Directory
 import System.Exit
+import System.Process
 
 import Rest.Api (withVersion, Api, Some1 (..))
 
diff --git a/src/Rest/Gen/Docs/Generate.hs b/src/Rest/Gen/Docs/Generate.hs
--- a/src/Rest/Gen/Docs/Generate.hs
+++ b/src/Rest/Gen/Docs/Generate.hs
@@ -14,7 +14,7 @@
 
 import Control.Monad hiding (forM_)
 import Data.Function (on)
-import Data.HashTable
+import Data.Hashable (hash)
 import Data.List hiding (head, span)
 import Data.String
 import System.Directory
@@ -166,7 +166,7 @@
 
 mkCode :: String -> String -> String -> Html
 mkCode lng cap cd =
-  let eid = "idv" ++ (show $ toInteger $ hashString cd)
+  let eid = "idv" ++ show (hash cd)
   in do div ! cls "modal hide fade code" ! id (toValue eid) $
           do cdiv "modal-header" $
               do a ! href (toValue "#") ! cls "close" $ toHtml "x"