04bytestring

performanceparsing/parse.hs

@@ -3,33 +3,33 @@
module Main (main) where

import Data.Bits
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.ByteString as BS
import qualified Data.ByteString.Char8 as BS8
import Data.ByteString (ByteString)
import System.Environment
import qualified Data.Map.Strict as M
import Control.Applicative
import Data.AffineSpace ((.-^))
import Data.Char (isSpace, digitToInt, isUpper)
import Data.Char (digitToInt, isUpper)
import Data.List (foldl')
import Control.Lens
import Data.Thyme

import Data.Attoparsec.Text
import Data.Attoparsec.ByteString.Char8

data UnixFile = UnixFileGen { _fileInode     :: !Int
                            , _fileHardLinks :: !Int
                            , _fileAtime     :: !UTCTime
                            , _fileMtime     :: !UTCTime
                            , _fileCtime     :: !UTCTime
                            , _fileUser      :: !Text
                            , _fileGroup     :: !Text
                            , _fileUser      :: !ByteString
                            , _fileGroup     :: !ByteString
                            , _fileBlocks    :: !Int
                            , _fileType      :: !FileType
                            , _filePerms     :: !FPerms
                            , _fileSize      :: !Int
                            , _filePath      :: !Text
                            , _fileTarget    :: !(Maybe Text)
                            , _filePath      :: !ByteString
                            , _fileTarget    :: !(Maybe ByteString)
                            } deriving (Show, Eq)

data FileType = TFile
@@ -96,14 +96,14 @@ findline = do
                        <*> t filetype
                        <*> (FPerms <$> t myOctal)
                        <*> t decimal
    rst <- T.words <$> t (takeWhile1 ( /= '\n' ))
    rst <- BS8.words <$> t (takeWhile1 ( /= '\n' ))
    return $ case break (== "->") rst of
                 (a, []) -> meta (T.unwords a) Nothing
                 (a, ["->"]) -> meta (T.unwords a) Nothing
                 (a, b) -> meta (T.unwords a) (Just (T.unwords b))
                 (a, []) -> meta (BS8.unwords a) Nothing
                 (a, ["->"]) -> meta (BS8.unwords a) Nothing
                 (a, b) -> meta (BS8.unwords a) (Just (BS8.unwords b))

parseFile :: FilePath -> IO [UnixFile]
parseFile fp = either (error . show) id . parseOnly (some findline) <$> T.readFile fp
parseFile fp = either (error . show) id . parseOnly (some findline) <$> BS.readFile fp

main :: IO ()
main = do