Port across GHC versions

Support 7.8, 7.10 and 8.0

Conflicts:
	benchmark/Benchmark.hs
	test/NormalizationTest.hs

Author: harendra-kumar

Data/Unicode/Types.hs

@@ -1,3 +1,7 @@
+{-# LANGUAGE CPP                #-}
+#if __GLASGOW_HASKELL__ < 7100
+{-# LANGUAGE DeriveDataTypeable #-}
+#endif
 -- |
 -- Module      : Data.Unicode.Types
 -- Copyright   : (c) 2016 Harendra Kumar

Data/Unicode/UTF8Proc.hsc

@@ -1,6 +1,10 @@
 {-# LANGUAGE CPP                      #-}
 {-# LANGUAGE ForeignFunctionInterface #-}
 
+#if __GLASGOW_HASKELL__ < 7100
+{-# LANGUAGE DeriveDataTypeable       #-}
+#endif
+
 -- |
 -- Module      : Data.Unicode.UTF8Proc
 -- Copyright   : (c) 2016 Harendra Kumar

benchmark/Benchmark.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP             #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 -- |
@@ -9,6 +10,9 @@
 -- Portability : GHC
 --
 
+#if !MIN_VERSION_base(4,8,0)
+import           Control.Applicative ((<$>), (<*>))
+#endif
 import           Control.DeepSeq     (NFData)
 import           Criterion.Main      (Benchmark, bench, bgroup, defaultMain, nf)
 import           Data.Text           (Text)

test/NormalizationTest.hs

@@ -1,5 +1,6 @@
+{-# LANGUAGE CPP               #-}
 {-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE TupleSections #-}
+{-# LANGUAGE TupleSections     #-}
 
 -- |
 -- Copyright   : (c) 2016 Harendra Kumar
@@ -12,14 +13,21 @@
 
 import           Control.Monad       (when)
 import           Data.Char           (chr, isSpace, ord, toUpper)
+#if MIN_VERSION_base(4,8,0)
 import           Data.Function       ((&))
+#endif
 import           Data.List           (intercalate, isPrefixOf)
 import           Data.List.Split     (splitOn)
 import           Data.Text           (Text)
 import qualified Data.Text           as T
 import           Data.Text.Normalize (NormalizationMode (..), normalize)
 import           Text.Printf         (printf)
 
+#if !MIN_VERSION_base(4,8,0)
+(&) :: a -> (a -> b) -> b
+x & f = f x
+#endif
+
 chrToHex :: Char -> [Char]
 chrToHex = (map toUpper) . (printf "%.4x") . ord