[FIX] build ok.

src/Gargantext/Text/Parsers.hs

@@ -107,7 +107,6 @@ parseDate' l (Just txt) = do
 
 toDoc :: FileFormat -> [(Text, Text)] -> IO HyperdataDocument
 toDoc WOS d = do
-      
       let abstract = lookup "abstract" d
       let lang = maybe EN identity (join $ detectLang <$> (fmap (DT.take 50) abstract))
       
@@ -133,6 +132,7 @@ toDoc WOS d = do
                                Nothing
                                Nothing
                                (Just $ (DT.pack . show) lang)
+toDoc _ _ = undefined
 
 parse :: FileFormat -> FilePath -> IO ([ParseError], [[(Text, Text)]])
 parse format path = do
@@ -154,7 +154,7 @@ withParser WOS = wosParser
 --withParser DOC = docParser
 --withParser ODT = odtParser
 --withParser XML = xmlParser
---withParser _   = error "[ERROR] Parser not implemented yet"
+withParser _   = panic "[ERROR] Parser not implemented yet"
 
 runParser :: FileFormat -> DB.ByteString
           -> IO (Either String [[(DB.ByteString, DB.ByteString)]])

src/Gargantext/Text/Parsers/CSV.hs

@@ -25,7 +25,7 @@ import Control.Applicative
 import Data.Char (ord)
 import Data.Csv
 import Data.Either (Either(Left, Right))
-import Data.Text (Text, pack, length, intercalate, unpack)
+import Data.Text (Text, pack, length, intercalate)
 import qualified Data.ByteString.Lazy as BL
 import Data.Time.Segment (jour)
 
@@ -253,7 +253,7 @@ instance FromNamedRecord CsvHal where
                               <*> r .: "docType_s"
 
 instance ToNamedRecord CsvHal where
-  toNamedRecord (CsvHal t s py  pm pd abst aut  url isbn iss jour lang  doi auth inst dept lab team doct) = 
+  toNamedRecord (CsvHal t s py  pm pd abst aut  url isbn iss j lang  doi auth inst dept lab team doct) = 
     namedRecord [ "title"  .= t
                 , "source" .= s
                 
@@ -267,7 +267,7 @@ instance ToNamedRecord CsvHal where
                 , "url"                .= url
                 , "isbn_s"             .= isbn
                 , "issue_s"            .= iss
-                , "journalPublisher_s" .= jour
+                , "journalPublisher_s" .= j
                 , "language_s"         .= lang
                 
                 , "doiId_s"            .= doi