Use sequence over sequenceA to support GHC 7.8

GetShopTV · Feb 1, 2016 · f5eb094 · f5eb094
1 parent baee645
commit f5eb094
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/Swagger/Operation.hs b/src/Data/Swagger/Operation.hs
@@ -66,7 +66,7 @@ operationsOf sub = paths.itraversed.withIndex.subops
     methodsOf pathItem = partsOf template . itraversed . indices (`elem` ns) . _Just
       where
         ops = pathItem ^.. template :: [Maybe Operation]
-        ns = mapMaybe (fmap fst . sequenceA) $ zip [0..] ops
+        ns = mapMaybe (fmap fst . sequence) $ zip [0..] ops
 
 -- | Apply tags to a part of Swagger spec and update the global
 -- list of tags.