diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 # Revision history for protocol-radius-test
 
+## 0.1.0.1  -- 2019-09-13
+
+* Fix build for GHC 8.8.1.
+
 ## 0.1.0.0  -- 2019-02-22
 
 * Divide NoVSA modules.
diff --git a/protocol-radius-test.cabal b/protocol-radius-test.cabal
--- a/protocol-radius-test.cabal
+++ b/protocol-radius-test.cabal
@@ -1,5 +1,5 @@
 name:                protocol-radius-test
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            testsuit of protocol-radius haskell package
 description:         This package provides
                      testsuit of protocol-radius haskell package.
@@ -12,7 +12,8 @@
 build-type:          Simple
 extra-source-files:  ChangeLog.md
 cabal-version:       >=1.10
-tested-with:           GHC == 8.6.1, GHC == 8.6.2, GHC == 8.6.3
+tested-with:           GHC == 8.8.1
+                     , GHC == 8.6.1, GHC == 8.6.2, GHC == 8.6.3, GHC == 8.6.4, GHC == 8.6.5
                      , GHC == 8.4.1, GHC == 8.4.2, GHC == 8.4.3
                      , GHC == 8.2.1, GHC == 8.2.2
                      , GHC == 8.0.1, GHC == 8.0.2
diff --git a/src/Test/Data/Radius/ArbitrariesBase.hs b/src/Test/Data/Radius/ArbitrariesBase.hs
--- a/src/Test/Data/Radius/ArbitrariesBase.hs
+++ b/src/Test/Data/Radius/ArbitrariesBase.hs
@@ -97,4 +97,4 @@
     (p, len) <- genCountedPacket ac encodeA
     if len <= 4096
       then pure p
-      else fail "genPacket: this should not happen broken size property (header-size + 256 * 15 < 4096)."
+      else error "genPacket: this should not happen broken size property (header-size + 256 * 15 < 4096)."