Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
157
Issues
157
List
Board
Labels
Milestones
Merge Requests
9
Merge Requests
9
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
haskell-gargantext
Commits
b595e480
Commit
b595e480
authored
Nov 10, 2017
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX] removing duplicated imports.
parent
787cd46e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
6 deletions
+3
-6
WOS.hs
src/Data/Gargantext/Parsers/WOS.hs
+3
-6
No files found.
src/Data/Gargantext/Parsers/WOS.hs
View file @
b595e480
...
...
@@ -4,8 +4,8 @@ import Prelude hiding (takeWhile, take, concat, readFile)
import
qualified
Data.List
as
DL
import
Data.Map
as
DM
import
Data.Attoparsec.ByteString
import
Data.Attoparsec.ByteString.Char8
(
anyChar
,
char8
,
endOfLine
,
isDigit_w8
,
isAlpha_ascii
,
isEndOfLine
)
import
Data.ByteString
(
ByteString
,
unpack
,
pack
,
concat
,
readFile
)
import
Data.Attoparsec.ByteString.Char8
(
anyChar
,
isEndOfLine
)
import
Data.ByteString
(
ByteString
)
import
Data.Either.Extra
(
Either
(
..
))
import
Control.Applicative
...
...
@@ -19,10 +19,7 @@ import Control.Monad (join)
import
Control.Concurrent.Async
as
CCA
(
mapConcurrently
)
import
System.Environment
import
Codec.Archive.Zip
import
Path
(
parseAbsFile
)
import
Path.IO
(
resolveFile'
)
-- import qualified Data.ByteString.Lazy as B
import
Control.Applicative
(
(
<$>
)
)
...
...
@@ -38,7 +35,7 @@ zipFiles fp = do
parseFile
::
ParserType
->
ByteString
->
IO
Int
parseFile
p
x
=
case
runParser
p
x
of
Left
e
->
pure
1
Left
_
->
pure
0
Right
r
->
pure
$
length
r
testWos
::
FilePath
->
IO
[
Int
]
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment