WIP: [GQL] Basic mutation authentication
[gargantext.git] / src / Gargantext / Core / Text / Learn.hs
index 83807ea66d8e76baafdb9094b908e4af05ac805f..e28605a3643e54907c7bbc90bc91451d023aee07 100644 (file)
@@ -22,7 +22,6 @@ module Gargantext.Core.Text.Learn -- (detectLang, detectLangs, stopList)
 import Codec.Serialise
 import qualified Data.List as DL
 
-import Data.Maybe (maybe)
 import Data.Map.Strict (Map, toList)
 import qualified Data.Map.Strict as DM
 
@@ -35,7 +34,7 @@ import Data.Tuple.Extra (both)
 import qualified Data.ByteString.Lazy as BSL
 
 import Gargantext.Prelude
-import Gargantext.Prelude.Utils
+import Gargantext.Database.GargDB
 import Gargantext.Core (Lang(..), allLangs)
 import Gargantext.Core.Text.Terms.Mono (words)
 import Gargantext.Core.Text.Metrics.Count (occurrencesWith)
@@ -113,7 +112,7 @@ detectLangDefault = detectCat 99 eventLang
     textSample :: Lang -> String
     textSample EN = EN.textSample
     textSample FR = FR.textSample
-    textSample _  = panic "textSample: not impl yet"
+    textSample _  = panic "[G.C.T.L:detectLangDefault] not impl yet"
     --textSample DE = DE.textSample
     --textSample SP = SP.textSample
     --textSample CH = CH.textSample