diff --git a/fast-arithmetic.cabal b/fast-arithmetic.cabal
--- a/fast-arithmetic.cabal
+++ b/fast-arithmetic.cabal
@@ -1,5 +1,5 @@
 name:                fast-arithmetic
-version:             0.1.1.0
+version:             0.1.1.1
 synopsis:            Fast number-theoretic functions.
 description:         Fast number-theoretic code with a high level of safety guaranteed by ATS.
 homepage:            https://github.com/vmchale/fast-arithmetic#readme
diff --git a/src/Numeric/Combinatorics.hs b/src/Numeric/Combinatorics.hs
--- a/src/Numeric/Combinatorics.hs
+++ b/src/Numeric/Combinatorics.hs
@@ -1,9 +1,14 @@
+{-# LANGUAGE CPP #-}
+
 -- | This provides a few facilities for working with common combinatorial
 -- functions.
 module Numeric.Combinatorics ( factorial
                              , choose
                              ) where
 
+#if __GLASGOW_HASKELL__ <= 784
+import           Control.Applicative
+#endif
 import           Control.Composition
 import           Data.Word
 import           Foreign.C
diff --git a/test/Spec.hs b/test/Spec.hs
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -35,5 +35,5 @@
         prop "should agree with the pure Haskell function" $
             \n -> n < 1 || isPerfect n == hsIsPerfect n
     describe "factorial" $
-        it "should agree with the pure Haskell function" $
+        it "should work on a slightly large number" $
             factorial 3141 >>= (`shouldBe` hsFactorial 3141)