diff --git a/CHANGELOG.md b/CHANGELOG.md
index 8cc8f48..b736473 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -11,6 +11,7 @@ New features:
 Bugfixes:
 
 Other improvements:
+- Fix warnings revealed by v0.14.1 PS release (#43 by @JordanMartinez)
 
 ## [v5.0.0](https://github.com/purescript/purescript-st/releases/tag/v5.0.0) - 2021-02-26
 
diff --git a/src/Control/Monad/ST/Internal.purs b/src/Control/Monad/ST/Internal.purs
index 148de37..a467276 100644
--- a/src/Control/Monad/ST/Internal.purs
+++ b/src/Control/Monad/ST/Internal.purs
@@ -62,7 +62,7 @@ instance monadRecST :: MonadRec (ST r) where
         Loop a' -> do
           e <- f a'
           void (write e r)
-        Done b -> pure unit
+        Done _ -> pure unit
     fromDone <$> read r
     where
       fromDone :: forall a b. Step a b -> b