Control parser test binary
[sat-britney.git] / ControlTester.hs
1 import qualified Data.Map as M
2 import Types
3 import Data.List
4 import ParseSuite
5 import Data.Function
6 import Data.Functor
7 import ControlParser
8 import Debian.Control
9
10 main = do
11     if False then do
12         m <- map (\(Paragraph x) -> map formatField x) <$> myParseControl "realdata/unstable/Packages_i386"
13         length (show m) `seq` return ()
14         else do
15         m <- parseControlFile "realdata/unstable/Packages_i386"
16         length (show m) `seq` return ()