Commit b595e480 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] removing duplicated imports.

parent 787cd46e
...@@ -4,8 +4,8 @@ import Prelude hiding (takeWhile, take, concat, readFile) ...@@ -4,8 +4,8 @@ import Prelude hiding (takeWhile, take, concat, readFile)
import qualified Data.List as DL import qualified Data.List as DL
import Data.Map as DM import Data.Map as DM
import Data.Attoparsec.ByteString import Data.Attoparsec.ByteString
import Data.Attoparsec.ByteString.Char8 (anyChar, char8, endOfLine, isDigit_w8, isAlpha_ascii, isEndOfLine) import Data.Attoparsec.ByteString.Char8 (anyChar, isEndOfLine)
import Data.ByteString (ByteString, unpack, pack, concat, readFile) import Data.ByteString (ByteString)
import Data.Either.Extra(Either(..)) import Data.Either.Extra(Either(..))
import Control.Applicative import Control.Applicative
...@@ -19,10 +19,7 @@ import Control.Monad (join) ...@@ -19,10 +19,7 @@ import Control.Monad (join)
import Control.Concurrent.Async as CCA (mapConcurrently) import Control.Concurrent.Async as CCA (mapConcurrently)
import System.Environment
import Codec.Archive.Zip import Codec.Archive.Zip
import Path (parseAbsFile)
import Path.IO (resolveFile') import Path.IO (resolveFile')
-- import qualified Data.ByteString.Lazy as B -- import qualified Data.ByteString.Lazy as B
import Control.Applicative ( (<$>) ) import Control.Applicative ( (<$>) )
...@@ -38,7 +35,7 @@ zipFiles fp = do ...@@ -38,7 +35,7 @@ zipFiles fp = do
parseFile :: ParserType -> ByteString -> IO Int parseFile :: ParserType -> ByteString -> IO Int
parseFile p x = case runParser p x of parseFile p x = case runParser p x of
Left e -> pure 1 Left _ -> pure 0
Right r -> pure $ length r Right r -> pure $ length r
testWos :: FilePath -> IO [Int] testWos :: FilePath -> IO [Int]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment