diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,8 +1,8 @@
 # ChangeLog for `bech32`
 
-## 1.0.0 -- 2019-09-27
+## 1.0.2 -- 2020-02-19
 
-+ Initial release pulled from https://github.com/input-output-hk/cardano-wallet
++ Added support for the `bech32-th` extension library.
 
 ## 1.0.1 -- 2020-02-13
 
@@ -12,3 +12,7 @@
   interface.
 + Exposed the `Word5` type within the public interface.
 + Exposed the `CharPosition` type within the public interface.
+
+## 1.0.0 -- 2019-09-27
+
++ Initial release pulled from https://github.com/input-output-hk/cardano-wallet
diff --git a/bech32.cabal b/bech32.cabal
--- a/bech32.cabal
+++ b/bech32.cabal
@@ -1,5 +1,5 @@
 name:          bech32
-version:       1.0.1
+version:       1.0.2
 synopsis:      Implementation of the Bech32 cryptocurrency address format (BIP 0173).
 description:   Implementation of the Bech32 cryptocurrency address format documented in the
                BIP (Bitcoin Improvement Proposal) 0173.
@@ -59,7 +59,6 @@
       test
   ghc-options:
       -threaded -rtsopts -with-rtsopts=-N
-      -O2
       -Wall
   if (flag(werror))
     ghc-options:
diff --git a/src/Codec/Binary/Bech32/Internal.hs b/src/Codec/Binary/Bech32/Internal.hs
--- a/src/Codec/Binary/Bech32/Internal.hs
+++ b/src/Codec/Binary/Bech32/Internal.hs
@@ -75,6 +75,8 @@
 
 import Prelude
 
+import Control.Exception
+    ( Exception )
 import Control.Monad
     ( guard, join )
 import Data.Array
@@ -271,6 +273,8 @@
       -- are /less than/ 'humanReadableCharMinBound' or /greater than/
       -- 'humanReadableCharMaxBound'.
     deriving (Eq, Show)
+
+instance Exception HumanReadablePartError
 
 -- | Get the raw text of the human-readable part of a Bech32 string.
 humanReadablePartToText :: HumanReadablePart -> Text