Add Semigroup instances for GHC 8.4.2

yi-editor · Apr 24, 2018 · 017e1bd · 017e1bd
1 parent fc711de
commit 017e1bd
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/Yi/Rope.hs b/src/Yi/Rope.hs
@@ -1,3 +1,4 @@
+{-# language CPP #-}
 {-# language BangPatterns #-}
 {-# language DeriveDataTypeable #-}
 {-# language LambdaCase #-}
@@ -115,6 +116,11 @@ overChunk f (Chunk l t) = Chunk l (f t)
 countNl :: TX.Text -> Int
 countNl = TX.count "\n"
 
+#if __GLASGOW_HASKELL__ >= 804
+instance Semigroup Size where
+  (<>) = mappend
+#endif
+
 instance Monoid Size where
   mempty = Indices 0 0
   Indices c l `mappend` Indices c' l' = Indices (c + c') (l + l')
@@ -153,6 +159,11 @@ instance NFData YiString where
 instance IsString YiString where
   fromString = Yi.Rope.fromString
 
+#if __GLASGOW_HASKELL__ >= 804
+instance Semigroup YiString where
+  (<>) = mappend
+#endif
+
 instance Monoid YiString where
   mempty = Yi.Rope.empty
   mappend = Yi.Rope.append