Commit eb3b01cd authored by Andreas Klebinger's avatar Andreas Klebinger

Parse size output on mac correctly.

parent 738908dc
module ParseResults
module ParseResults
( parseCodeSize
, parseRtsStats
) where
......@@ -9,8 +9,10 @@ import qualified Data.Map.Strict as M
parseCodeSize :: String -> Integer
parseCodeSize content
| header : sizes : _ <- lines content
, "text" : _ <- words header =
read $ head $ words sizes
, text_hdr : _ <- words header
, "text" == text_hdr || "__TEXT" == text_hdr
= read $ head $ words sizes
| otherwise = error "unrecognized size output"
parseRtsStats :: String -> M.Map String Double
......
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