Add Data.Functor to import for GHC 7.8.4

src/Math/OEIS.hs

@@ -14,6 +14,7 @@ module Math.OEIS (
   OEISSeq(..)
   ) where
 
+import           Data.Functor
 import           Data.List
 import           Data.Maybe         (fromMaybe, listToMaybe)
 import qualified Data.Vector        as V

src/Math/OEIS/Internal.hs

@@ -8,6 +8,7 @@ import           Control.Monad       (when)
 import           Data.Aeson.Lens
 import           Data.Aeson.Types
 import           Data.Char
+import           Data.Functor
 import           Data.List
 import           Data.Maybe          (fromJust, fromMaybe, isNothing)
 import qualified Data.Text           as T
@@ -88,7 +89,7 @@ getResults ss start bound vs = do
       results = case results' of
         Nothing  -> return []
         Just vs' ->
-          let len    = length vs'
+          let len    = V.length vs'
               start' = start + 10
               diff   = case bound of
                          0 -> len
@@ -140,7 +141,7 @@ getData result k
     in case ds of
          Nothing -> (k, Nothing)
          _       -> let ts  = (\i -> result ^?! key k . nth i . _String) <$> [0..(len - 1)]
-                        len = fromJust $ length <$> ds
+                        len = fromJust $ V.length <$> ds
                     in case k of
                          "program" -> let prgs = parsePrograms emptyProgram [] ts
                                       in (k, Just $ PRGS prgs)

test/Spec.hs

@@ -2,6 +2,7 @@
 
 import           Data.Aeson.Lens
 import           Data.Aeson.Types
+import           Data.Functor
 import           Data.List
 import           Data.Maybe            (fromJust)
 import qualified Data.Text             as T