[DB/FACT] fix warnings
[gargantext.git] / src-test / Ngrams / Metrics.hs
index 3b8ffeef34bf9812682da69c8753f9aba7302a97..8f56c291c8c4861a5e34901eab582514913cd134 100644 (file)
@@ -1,15 +1,33 @@
+{-|
+Module      : Ngrams.Metrics
+Description : 
+Copyright   : Ngrams.Metrics (c)
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+
+Here is a longer description of this module, containing some
+commentary with @some markup@.
+-}
+
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+
 {-# LANGUAGE CPP                  #-}
+{-# LANGUAGE NoImplicitPrelude    #-}
 {-# LANGUAGE OverloadedStrings    #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
 
 module Ngrams.Metrics (main) where
 
-import Data.Ratio
-import Data.Text (Text)
-import Data.Gargantext.Ngrams.Metrics
+import           Data.Text (Text)
+import qualified Data.Text as T
+import           Data.Ratio
+
 import Test.Hspec
 import Test.QuickCheck
-import qualified Data.Text as T
+
+import Gargantext.Prelude
+import Gargantext.Text.Metrics
 
 #if !MIN_VERSION_base(4,8,0)
 import Control.Applicative
@@ -121,5 +139,5 @@ testPair :: (Eq a, Show a)
   -> Text              -- ^ Second input
   -> a                 -- ^ Expected result
   -> SpecWith ()
-testPair f a b r = it ("‘" ++ T.unpack a ++ "’ and ‘" ++ T.unpack b ++ "’") $
+testPair f a b r = it ("‘" <> T.unpack a <> "’ and ‘" <> T.unpack b <> "’") $
   f a b `shouldBe` r