diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,9 @@
+## HTagLib 1.0.3
+
+* Export functions instead of record selectors for tag newtype wrappers.
+  This is to prevent changes (using record syntax) to values created with
+  smart constructors.
+
 ## HTagLib 1.0.2
 
 * Modify test suite so it passes with newer versions of TagLib as well.
diff --git a/Sound/HTagLib/Type.hs b/Sound/HTagLib/Type.hs
--- a/Sound/HTagLib/Type.hs
+++ b/Sound/HTagLib/Type.hs
@@ -59,9 +59,7 @@
 
 -- | Title tag.
 
-newtype Title = Title
-  { unTitle :: Text    -- ^ Convert 'Title' to 'Text'.
-  } deriving (Show, Eq, Ord)
+newtype Title = Title Text deriving (Show, Eq, Ord)
 
 instance IsString Title where
   fromString = mkTitle . fromString
@@ -71,11 +69,14 @@
 mkTitle :: Text -> Title
 mkTitle = Title . avoidNulls
 
+-- | Convert 'Title' to 'Text'.
+
+unTitle :: Title -> Text
+unTitle (Title x) = x
+
 -- | Artist tag.
 
-newtype Artist = Artist
-  { unArtist :: Text   -- ^ Convert 'Artist' to 'Text'.
-  } deriving (Show, Eq, Ord)
+newtype Artist = Artist Text deriving (Show, Eq, Ord)
 
 instance IsString Artist where
   fromString = mkArtist . fromString
@@ -85,11 +86,14 @@
 mkArtist :: Text -> Artist
 mkArtist = Artist . avoidNulls
 
+-- | Convert 'Artist' to 'Text'.
+
+unArtist :: Artist -> Text
+unArtist (Artist x) = x
+
 -- | Album tag.
 
-newtype Album = Album
-  { unAlbum :: Text    -- ^ Convert 'Album' to 'Text'.
-  } deriving (Show, Eq, Ord)
+newtype Album = Album Text deriving (Show, Eq, Ord)
 
 instance IsString Album where
   fromString = mkAlbum . fromString
@@ -99,11 +103,14 @@
 mkAlbum :: Text -> Album
 mkAlbum = Album . avoidNulls
 
+-- | Convert 'Album' to 'Text'.
+
+unAlbum :: Album -> Text
+unAlbum (Album x) = x
+
 -- | Comment tag.
 
-newtype Comment = Comment
-  { unComment :: Text  -- ^ Convert 'Comment' to 'Text'.
-  } deriving (Show, Eq, Ord)
+newtype Comment = Comment Text deriving (Show, Eq, Ord)
 
 instance IsString Comment where
   fromString = mkComment . fromString
@@ -113,11 +120,14 @@
 mkComment :: Text -> Comment
 mkComment = Comment . avoidNulls
 
+-- | Convert 'Comment' to 'Text'.
+
+unComment :: Comment -> Text
+unComment (Comment x) = x
+
 -- | Genre tag.
 
-newtype Genre = Genre
-  { unGenre :: Text    -- ^ Convert 'Genre' to 'Text'.
-  } deriving (Show, Eq, Ord)
+newtype Genre = Genre Text deriving (Show, Eq, Ord)
 
 instance IsString Genre where
   fromString = mkGenre . fromString
@@ -127,22 +137,28 @@
 mkGenre :: Text -> Genre
 mkGenre = Genre . avoidNulls
 
+-- | Convert 'Genre' to 'Text'.
+
+unGenre :: Genre -> Text
+unGenre (Genre x) = x
+
 -- | Year tag.
 
-newtype Year = Year
-  { unYear :: Int      -- ^ Convert 'Year' to 'Int'.
-  } deriving (Show, Eq, Ord)
+newtype Year = Year Int deriving (Show, Eq, Ord)
 
 -- | Construction of 'Year' type, non-positive values result in 'Nothing'.
 
 mkYear :: Int -> Maybe Year
 mkYear = fmap Year . atLeast 1
 
+-- | Convert 'Year' to 'Int'.
+
+unYear :: Year -> Int
+unYear (Year x) = x
+
 -- | Track number tag.
 
-newtype TrackNumber = TrackNumber
-  { unTrackNumber :: Int -- ^ Convert 'TrackNumber' to 'Int'.
-  } deriving (Show, Eq, Ord)
+newtype TrackNumber = TrackNumber Int deriving (Show, Eq, Ord)
 
 -- | Construction of 'TrackNumber' type, non-positive values result in
 -- 'Nothing'.
@@ -150,22 +166,28 @@
 mkTrackNumber :: Int -> Maybe TrackNumber
 mkTrackNumber = fmap TrackNumber . atLeast 1
 
+-- | Convert 'TrackNumber' to 'Int'.
+
+unTrackNumber :: TrackNumber -> Int
+unTrackNumber (TrackNumber x) = x
+
 -- | Duration in seconds.
 
-newtype Duration = Duration
-  { unDuration :: Int  -- ^ Convert 'Duration' to 'Int'.
-  } deriving (Show, Eq, Ord)
+newtype Duration = Duration Int deriving (Show, Eq, Ord)
 
 -- | Construction of 'Duration' values, negative values result in 'Nothing'.
 
 mkDuration :: Int -> Maybe Duration
 mkDuration = fmap Duration . atLeast 0
 
+-- | Convert 'Duration' to 'Int'.
+
+unDuration :: Duration -> Int
+unDuration (Duration x) = x
+
 -- | Bit rate in kb/s.
 
-newtype BitRate = BitRate
-  { unBitRate :: Int   -- ^ Convert 'BitRate' to 'Int'.
-  } deriving (Show, Eq, Ord)
+newtype BitRate = BitRate Int deriving (Show, Eq, Ord)
 
 -- | Construction of 'BitRate' values, negative values result in
 -- 'Nothing'.
@@ -173,11 +195,14 @@
 mkBitRate :: Int -> Maybe BitRate
 mkBitRate = fmap BitRate . atLeast 0
 
+-- | Convert 'BitRate' to 'Int'.
+
+unBitRate :: BitRate -> Int
+unBitRate (BitRate x) = x
+
 -- | Sample rate in Hz.
 
-newtype SampleRate = SampleRate
-  { unSampleRate :: Int -- ^ Convert 'SampleRate' to 'Int'.
-  } deriving (Show, Eq, Ord)
+newtype SampleRate = SampleRate Int deriving (Show, Eq, Ord)
 
 -- | Construction of 'SampleRate' values, non-positive values result in
 -- 'Nothing'.
@@ -185,17 +210,25 @@
 mkSampleRate :: Int -> Maybe SampleRate
 mkSampleRate = fmap SampleRate . atLeast 1
 
+-- | Convert 'SampleRate' to 'Int'.
+
+unSampleRate :: SampleRate -> Int
+unSampleRate (SampleRate x) = x
+
 -- | Number of channels in the audio stream.
 
-newtype Channels = Channels
-  { unChannels :: Int  -- ^ Convert 'Channels' to 'Int'.
-  } deriving (Show, Eq, Ord)
+newtype Channels = Channels Int deriving (Show, Eq, Ord)
 
 -- | Construction of 'Channels' values, non-positive values result in
 -- 'Nothing'.
 
 mkChannels :: Int -> Maybe Channels
 mkChannels = fmap Channels . atLeast 1
+
+-- | Convert 'Channels' to 'Int'.
+
+unChannels :: Channels -> Int
+unChannels (Channels x) = x
 
 -- | Replace null bytes with spaces.
 
diff --git a/htaglib.cabal b/htaglib.cabal
--- a/htaglib.cabal
+++ b/htaglib.cabal
@@ -31,7 +31,7 @@
 -- POSSIBILITY OF SUCH DAMAGE.
 
 name:                htaglib
-version:             1.0.2
+version:             1.0.3
 cabal-version:       >= 1.10
 license:             BSD3
 license-file:        LICENSE.md