working with 8.2 prelude

mstksg · Jul 28, 2018 · e489cbc · e489cbc
1 parent 7f6f475
commit e489cbc
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/package.yaml b/package.yaml
@@ -22,7 +22,7 @@ description:         Please see the README on GitHub at <https://github.com/mstk
 tested-with:         GHC >= 8.2
 
 dependencies:
-- base >= 4.7 && < 5
+- base >= 4.10 && < 5
 - containers
 
 ghc-options:

diff --git a/src/Numeric/EMD.hs b/src/Numeric/EMD.hs
@@ -259,12 +259,12 @@ extendExtrema xs = \case
                 (minIx, M.singleton (extendSym (fromIntegral minIx)) minVal)
               flippedMax = flip fmap (M.lookupMax maxs) $ \(maxIx, maxVal) ->
                 (maxIx, M.singleton (extendSym (fromIntegral maxIx)) maxVal)
-      in  addFirst <> addLast
+      in  addFirst `mappend` addLast
   where
     lastIx = fromIntegral $ maxBound @(Finite n)
     firstPoint = M.singleton 0 (SVG.head xs)
     lastPoint  = M.singleton lastIx (SVG.last xs)
-    firstLast  = firstPoint <> lastPoint
+    firstLast  = firstPoint `mappend` lastPoint
     extendSym i = 2 * lastIx - i
 
 -- | Build a splined vector against a map of control points.