diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+### 0.17.1
+
+* Expose `Rest.Gen.Base.ActionInfo.Ident`
+
 #### 0.17.0.6
 
 * Fix linking of documentation resources (thanks Jan-Philip Loos)
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.17.0.6
+version:             0.17.1
 description:         Documentation and client generation from rest definition.
 synopsis:            Documentation and client generation from rest definition.
 maintainer:          code@silk.co
@@ -31,6 +31,7 @@
     Rest.Gen
     Rest.Gen.Base
     Rest.Gen.Base.ActionInfo
+    Rest.Gen.Base.ActionInfo.Ident
     Rest.Gen.Base.ApiTree
     Rest.Gen.Config
     Rest.Gen.Docs
@@ -40,7 +41,6 @@
     Rest.Gen.Types
   other-modules:
     Paths_rest_gen
-    Rest.Gen.Base.ActionInfo.Ident
     Rest.Gen.Base.JSON
     Rest.Gen.Base.JSON.Pretty
     Rest.Gen.Base.Link
diff --git a/src/Rest/Gen/Utils.hs b/src/Rest/Gen/Utils.hs
--- a/src/Rest/Gen/Utils.hs
+++ b/src/Rest/Gen/Utils.hs
@@ -1,6 +1,5 @@
 module Rest.Gen.Utils
   ( readContent
-  , copyContent
   , groupByFirst
   , fst3
   , snd3
@@ -11,18 +10,11 @@
   ) where
 
 import Data.Char
-import Data.List.Split
 
-import Paths_rest_gen
-
-import System.FilePath
-import Text.StringTemplate
+import Paths_rest_gen (getDataFileName)
 
 readContent :: String -> IO String
 readContent f = getDataFileName f >>= readFile
-
-copyContent :: ToSElem a => [(String, a)] -> String -> String -> IO ()
-copyContent ats f t = readContent f >>= return . render . setManyAttrib ats . newSTMP >>= writeFile (t </> last (splitOn "/" f))
 
 groupByFirst :: Eq a => [(a,b)] -> [(a,[b])]
 groupByFirst = foldr add []