359ac4ce9281db8286fe29bbb579e1c95c014ca5
[sat-britney.git] / ControlTester.hs
1 -- |
2 -- Copyright: (c) 2011 Joachim Breitner
3 -- License: GPL-2
4 --
5
6 import qualified Data.Map as M
7 import Types
8 import Data.List
9 import ParseSuite
10 import Data.Function
11 import Data.Functor
12 import ControlParser
13 import Debian.Control
14
15 main = do
16     if False then do
17         m <- map (\(Paragraph x) -> map formatField x) <$> myParseControl "realdata/unstable/Packages_i386"
18         length (show m) `seq` return ()
19         else do
20         m <- parseControlFile "realdata/unstable/Packages_i386"
21         length (show m) `seq` return ()