diff --git a/Text/Shakespeare/Base.hs b/Text/Shakespeare/Base.hs
index 726d9b6..f68a141 100644
--- a/Text/Shakespeare/Base.hs
+++ b/Text/Shakespeare/Base.hs
@@ -43,6 +43,7 @@ import qualified Data.Text.Lazy.IO as TIO
 import Control.Monad (when)
 import Data.Maybe (mapMaybe)
 import Data.List.NonEmpty (nonEmpty, NonEmpty ((:|)))
+import Control.Applicative (liftA2)
 
 newtype Ident = Ident String
     deriving (Show, Eq, Read, Data, Typeable, Ord, Lift)