-{-# LANGUAGE CPP #-}
-{-# LANGUAGE OverloadedStrings #-}
+{-|
+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 #-}
-module Ngrams.Metrics (main) where
+{-# LANGUAGE CPP #-}
+
+--module Ngrams.Metrics (main) where
+module Ngrams.Metrics where
+
+{-
+import Data.Text (Text)
+import qualified Data.Text as T
+import Data.Ratio
-import Gargantext.Ngrams.Metrics
-import Data.Ratio
-import Data.Text (Text)
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
-> 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
+
+-}