[FIX] unused imports and indentation of comments.

src/Gargantext/Core.hs

@@ -17,13 +17,13 @@ module Gargantext.Core
 ------------------------------------------------------------------------
 -- | Language of a Text
 -- For simplicity, we suppose text has an homogenous language
-data Lang = EN | FR
 
-    -- | DE | IT | SP
-    -- > EN == english
-    -- > FR == french
-    -- > DE == deutch  (not implemented yet)
-    -- > IT == italian (not implemented yet)
-    -- > SP == spanish (not implemented yet)
-    -- > ... add your language and help us to implement it (:
+data Lang = EN | FR
 
+-- | DE | IT | SP
+--  EN == english
+--  FR == french
+--  DE == deutch  (not implemented yet)
+--  IT == italian (not implemented yet)
+--  SP == spanish (not implemented yet)
+--  ... add your language and help us to implement it (:

src/Gargantext/Text/Ngrams/Stem/En.hs

@@ -17,7 +17,7 @@ Adapted from:
 
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Gargantext.Text.Ngrams.Stem.En
+module Gargantext.Text.Ngrams.Stem.En (stem)
   where
 
 import Control.Monad
@@ -203,14 +203,14 @@ stem' :: [Char] -> [Char]
 stem' s | length s < 3 = s
        | otherwise    = allSteps s
 
-fixpoint :: Eq t => (t -> t) -> t -> t
-fixpoint f x = let fx = f x in
-                   if fx == x
-                      then x
-                      else fixpoint f fx
-
-fixstem :: [Char] -> [Char]
-fixstem = fixpoint stem'
+--fixpoint :: Eq t => (t -> t) -> t -> t
+--fixpoint f x = let fx = f x in
+--                   if fx == x
+--                      then x
+--                      else fixpoint f fx
+--
+--fixstem :: [Char] -> [Char]
+--fixstem = fixpoint stem'
 
 
 {-