diff --git a/src/Gargantext/Text/Terms/Mono.hs b/src/Gargantext/Text/Terms/Mono.hs
index 3a40955da00553eeea663fcaa91c7e759d470069..5d311dcdb16e59fbc14185d2c80d9d0de7a813c5 100644
--- a/src/Gargantext/Text/Terms/Mono.hs
+++ b/src/Gargantext/Text/Terms/Mono.hs
@@ -13,7 +13,7 @@ Mono-terms are Nterms where n == 1.
 
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Gargantext.Text.Terms.Mono (monoTerms, monoTexts, monoTextsBySentence)
+module Gargantext.Text.Terms.Mono (monoTerms, monoTexts, monoTextsBySentence, words)
   where
 
 import Prelude (String)
diff --git a/src/Gargantext/Viz/Phylo/Example.hs b/src/Gargantext/Viz/Phylo/Example.hs
index 931801f4d64eec6dc99bb7d248e0d54ebbc6c95e..ceabeb91912eca450bbfce892edfe3ff39b8df1f 100644
--- a/src/Gargantext/Viz/Phylo/Example.hs
+++ b/src/Gargantext/Viz/Phylo/Example.hs
@@ -30,7 +30,7 @@ type PeriodeSize = Int
 ------------------------------------------------------------------------
 
 toPeriodes :: (Enum b, Fractional b, Ord b) => (t -> b) -> b -> [t] -> Map (b, b) [t]
-toPeriodes _ _ [] = panic "Empty history can not have any periode"
+toPeriodes _ _ [] = panic $ pack "Empty history can not have any periode"
 toPeriodes f s hs = periodes f st hs
   where
     hs' = DL.sortOn f hs
@@ -59,7 +59,7 @@ steps s (b,e) = zip (DL.init ss) (DL.tail ss)
 
 steps' :: (Enum b, Fractional b, Ord b) => b -> (b, b) -> [b]
 steps' s (b,e) = case s > 0 of
-                  False -> panic "Steps size can not be < 0"
+                  False -> panic $ pack "Steps size can not be < 0"
                   True  -> steps'' s (b,e)
 
 steps'' :: (Fractional b, Enum b) => b -> (b, b) -> [b]