Skip to content

Commit a2fd280

Browse files
committed
04bytestring
1 parent e4d0aa3 commit a2fd280

File tree

1 file changed

+14
-14
lines changed

1 file changed

+14
-14
lines changed

performanceparsing/parse.hs

Lines changed: 14 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -3,33 +3,33 @@
33
module Main (main) where
44

55
import Data.Bits
6-
import Data.Text (Text)
7-
import qualified Data.Text as T
8-
import qualified Data.Text.IO as T
6+
import qualified Data.ByteString as BS
7+
import qualified Data.ByteString.Char8 as BS8
8+
import Data.ByteString (ByteString)
99
import System.Environment
1010
import qualified Data.Map.Strict as M
1111
import Control.Applicative
1212
import Data.AffineSpace ((.-^))
13-
import Data.Char (isSpace, digitToInt, isUpper)
13+
import Data.Char (digitToInt, isUpper)
1414
import Data.List (foldl')
1515
import Control.Lens
1616
import Data.Thyme
1717

18-
import Data.Attoparsec.Text
18+
import Data.Attoparsec.ByteString.Char8
1919

2020
data UnixFile = UnixFileGen { _fileInode :: !Int
2121
, _fileHardLinks :: !Int
2222
, _fileAtime :: !UTCTime
2323
, _fileMtime :: !UTCTime
2424
, _fileCtime :: !UTCTime
25-
, _fileUser :: !Text
26-
, _fileGroup :: !Text
25+
, _fileUser :: !ByteString
26+
, _fileGroup :: !ByteString
2727
, _fileBlocks :: !Int
2828
, _fileType :: !FileType
2929
, _filePerms :: !FPerms
3030
, _fileSize :: !Int
31-
, _filePath :: !Text
32-
, _fileTarget :: !(Maybe Text)
31+
, _filePath :: !ByteString
32+
, _fileTarget :: !(Maybe ByteString)
3333
} deriving (Show, Eq)
3434

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

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

108108
main :: IO ()
109109
main = do

0 commit comments

Comments
 (0)