diff --git a/sandwich/src/Test/Sandwich/Types/Spec.hs b/sandwich/src/Test/Sandwich/Types/Spec.hs
index 530ba61..f5f0dc9 100644
--- a/sandwich/src/Test/Sandwich/Types/Spec.hs
+++ b/sandwich/src/Test/Sandwich/Types/Spec.hs
@@ -15,6 +15,7 @@
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE InstanceSigs #-}
+{-# LANGUAGE CPP #-}
 
 -- | The core Spec/SpecCommand types, used to define the test free monad.
 
@@ -36,6 +37,10 @@ import GHC.Stack
 import GHC.TypeLits
 import Safe
 
+#if !MIN_VERSION_base(4,13,0)
+import Control.Monad.Fail
+#endif
+
 -- * ExampleM monad
 
 newtype ExampleT context m a = ExampleT { unExampleT :: ReaderT context (LoggingT m) a }