Roundtrip test failed

AST 1:

Module (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (ModuleName "Data.GraphViz.Attributes") [] Nothing (Just [EThingAll (UnQual (Ident "Attribute")),EAbs (UnQual (Ident "Attributes")),EVar (UnQual (Ident "usedByGraphs")),EVar (UnQual (Ident "usedBySubGraphs")),EVar (UnQual (Ident "usedByClusters")),EVar (UnQual (Ident "usedByNodes")),EVar (UnQual (Ident "usedByEdges")),EAbs (UnQual (Ident "EscString")),EThingAll (UnQual (Ident "URL")),EThingAll (UnQual (Ident "ArrowType")),EThingAll (UnQual (Ident "AspectType")),EThingAll (UnQual (Ident "Rect")),EThingAll (UnQual (Ident "ClusterMode")),EThingAll (UnQual (Ident "DirType")),EThingAll (UnQual (Ident "DEConstraints")),EThingAll (UnQual (Ident "DPoint")),EThingAll (UnQual (Ident "ModeType")),EThingAll (UnQual (Ident "Model")),EThingAll (UnQual (Ident "Label")),EThingAll (UnQual (Ident "Point")),EThingAll (UnQual (Ident "Overlap")),EThingAll (UnQual (Ident "LayerRange")),EThingAll (UnQual (Ident "LayerID")),EThingAll (UnQual (Ident "LayerList")),EThingAll (UnQual (Ident "OutputMode")),EThingAll (UnQual (Ident "Pack")),EThingAll (UnQual (Ident "PackMode")),EThingAll (UnQual (Ident "Pos")),EThingAll (UnQual (Ident "EdgeType")),EThingAll (UnQual (Ident "PageDir")),EThingAll (UnQual (Ident "Spline")),EThingAll (UnQual (Ident "QuadType")),EThingAll (UnQual (Ident "Root")),EThingAll (UnQual (Ident "RankType")),EThingAll (UnQual (Ident "RankDir")),EThingAll (UnQual (Ident "Shape")),EThingAll (UnQual (Ident "SmoothType")),EThingAll (UnQual (Ident "StartType")),EThingAll (UnQual (Ident "STStyle")),EThingAll (UnQual (Ident "StyleItem")),EThingAll (UnQual (Ident "StyleName")),EThingAll (UnQual (Ident "PortPos")),EThingAll (UnQual (Ident "CompassPoint")),EThingAll (UnQual (Ident "ViewPort")),EThingAll (UnQual (Ident "FocusType")),EThingAll (UnQual (Ident "VerticalPlacement")),EThingAll (UnQual (Ident "ScaleType")),EThingAll (UnQual (Ident "Justification")),EThingAll (UnQual (Ident "Ratios")),EModuleContents (ModuleName "Data.GraphViz.Attributes.Colors"),EThingAll (UnQual (Ident "ArrowShape")),EThingAll (UnQual (Ident "ArrowModifier")),EThingAll (UnQual (Ident "ArrowFill")),EThingAll (UnQual (Ident "ArrowSide")),EVar (UnQual (Ident "box")),EVar (UnQual (Ident "crow")),EVar (UnQual (Ident "diamond")),EVar (UnQual (Ident "dotArrow")),EVar (UnQual (Ident "inv")),EVar (UnQual (Ident "noArrow")),EVar (UnQual (Ident "normal")),EVar (UnQual (Ident "tee")),EVar (UnQual (Ident "vee")),EVar (UnQual (Ident "oDot")),EVar (UnQual (Ident "invDot")),EVar (UnQual (Ident "invODot")),EVar (UnQual (Ident "oBox")),EVar (UnQual (Ident "oDiamond")),EVar (UnQual (Ident "eDiamond")),EVar (UnQual (Ident "openArr")),EVar (UnQual (Ident "halfOpen")),EVar (UnQual (Ident "emptyArr")),EVar (UnQual (Ident "invEmpty")),EVar (UnQual (Ident "noMods")),EVar (UnQual (Ident "openMod")),EVar (UnQual (Ident "defLayerSep")),EVar (UnQual (Ident "notLayerSep"))]) [ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.GraphViz.Attributes.Colors", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Nothing},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.GraphViz.Util", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Nothing},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.GraphViz.Parsing", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Nothing},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.GraphViz.Printing", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Nothing},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.Char", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Just (False,[IVar (Ident "toLower")])},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.Maybe", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Just (False,[IVar (Ident "isJust")])},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Control.Arrow", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Just (False,[IVar (Ident "first")])},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Control.Monad", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Just (False,[IVar (Ident "liftM"),IVar (Ident "liftM2")])}] [DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Attribute") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Damping") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "K") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "URL") [UnBangedTy (TyCon (UnQual (Ident "URL")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ArrowHead") [UnBangedTy (TyCon (UnQual (Ident "ArrowType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ArrowSize") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ArrowTail") [UnBangedTy (TyCon (UnQual (Ident "ArrowType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Aspect") [UnBangedTy (TyCon (UnQual (Ident "AspectType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Bb") [UnBangedTy (TyCon (UnQual (Ident "Rect")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "BgColor") [UnBangedTy (TyCon (UnQual (Ident "Color")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Center") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Charset") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ClusterRank") [UnBangedTy (TyCon (UnQual (Ident "ClusterMode")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ColorScheme") [UnBangedTy (TyCon (UnQual (Ident "ColorScheme")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Color") [UnBangedTy (TyList (TyCon (UnQual (Ident "Color"))))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Comment") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Compound") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Concentrate") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Constraint") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Decorate") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DefaultDist") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Dimen") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Dim") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Dir") [UnBangedTy (TyCon (UnQual (Ident "DirType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DirEdgeConstraints") [UnBangedTy (TyCon (UnQual (Ident "DEConstraints")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Distortion") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DPI") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "EdgeURL") [UnBangedTy (TyCon (UnQual (Ident "URL")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "EdgeTarget") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "EdgeTooltip") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Epsilon") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ESep") [UnBangedTy (TyCon (UnQual (Ident "DPoint")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FillColor") [UnBangedTy (TyCon (UnQual (Ident "Color")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FixedSize") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FontColor") [UnBangedTy (TyCon (UnQual (Ident "Color")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FontName") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FontNames") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FontPath") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FontSize") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Group") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadURL") [UnBangedTy (TyCon (UnQual (Ident "URL")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadClip") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadLabel") [UnBangedTy (TyCon (UnQual (Ident "Label")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadPort") [UnBangedTy (TyCon (UnQual (Ident "PortPos")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadTarget") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadTooltip") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Height") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ID") [UnBangedTy (TyCon (UnQual (Ident "Label")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Image") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ImageScale") [UnBangedTy (TyCon (UnQual (Ident "ScaleType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelURL") [UnBangedTy (TyCon (UnQual (Ident "URL")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelAngle") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelDistance") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelFloat") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelFontColor") [UnBangedTy (TyCon (UnQual (Ident "Color")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelFontName") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelFontSize") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelJust") [UnBangedTy (TyCon (UnQual (Ident "Justification")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelLoc") [UnBangedTy (TyCon (UnQual (Ident "VerticalPlacement")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelTarget") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelTooltip") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Label") [UnBangedTy (TyCon (UnQual (Ident "Label")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Landscape") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LayerSep") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Layers") [UnBangedTy (TyCon (UnQual (Ident "LayerList")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Layer") [UnBangedTy (TyCon (UnQual (Ident "LayerRange")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Layout") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Len") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LevelsGap") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Levels") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LHead") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LPos") [UnBangedTy (TyCon (UnQual (Ident "Point")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LTail") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Margin") [UnBangedTy (TyCon (UnQual (Ident "DPoint")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MaxIter") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MCLimit") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MinDist") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MinLen") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Model") [UnBangedTy (TyCon (UnQual (Ident "Model")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Mode") [UnBangedTy (TyCon (UnQual (Ident "ModeType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Mosek") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NodeSep") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoJustify") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Normalize") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Nslimit1") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Nslimit") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Ordering") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Orientation") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "OutputOrder") [UnBangedTy (TyCon (UnQual (Ident "OutputMode")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "OverlapScaling") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Overlap") [UnBangedTy (TyCon (UnQual (Ident "Overlap")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackMode") [UnBangedTy (TyCon (UnQual (Ident "PackMode")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Pack") [UnBangedTy (TyCon (UnQual (Ident "Pack")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Pad") [UnBangedTy (TyCon (UnQual (Ident "DPoint")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PageDir") [UnBangedTy (TyCon (UnQual (Ident "PageDir")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Page") [UnBangedTy (TyCon (UnQual (Ident "Point")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PenColor") [UnBangedTy (TyCon (UnQual (Ident "Color")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PenWidth") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Peripheries") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Pin") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Pos") [UnBangedTy (TyCon (UnQual (Ident "Pos")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "QuadTree") [UnBangedTy (TyCon (UnQual (Ident "QuadType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Quantum") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RankDir") [UnBangedTy (TyCon (UnQual (Ident "RankDir")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RankSep") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rank") [UnBangedTy (TyCon (UnQual (Ident "RankType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Ratio") [UnBangedTy (TyCon (UnQual (Ident "Ratios")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rects") [UnBangedTy (TyCon (UnQual (Ident "Rect")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Regular") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ReMinCross") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RepulsiveForce") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Root") [UnBangedTy (TyCon (UnQual (Ident "Root")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rotate") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SameHead") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SameTail") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SamplePoints") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SearchSize") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Sep") [UnBangedTy (TyCon (UnQual (Ident "DPoint")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ShapeFile") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Shape") [UnBangedTy (TyCon (UnQual (Ident "Shape")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ShowBoxes") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Sides") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Size") [UnBangedTy (TyCon (UnQual (Ident "Point")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Skew") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Smoothing") [UnBangedTy (TyCon (UnQual (Ident "SmoothType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SortV") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Splines") [UnBangedTy (TyCon (UnQual (Ident "EdgeType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Start") [UnBangedTy (TyCon (UnQual (Ident "StartType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "StyleSheet") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Style") [UnBangedTy (TyList (TyCon (UnQual (Ident "StyleItem"))))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailURL") [UnBangedTy (TyCon (UnQual (Ident "URL")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailClip") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailLabel") [UnBangedTy (TyCon (UnQual (Ident "Label")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailPort") [UnBangedTy (TyCon (UnQual (Ident "PortPos")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailTarget") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailTooltip") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Target") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Tooltip") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TrueColor") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Vertices") [UnBangedTy (TyList (TyCon (UnQual (Ident "Point"))))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ViewPort") [UnBangedTy (TyCon (UnQual (Ident "ViewPort")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "VoroMargin") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Weight") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Width") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Z") [UnBangedTy (TyCon (UnQual (Ident "Double")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],TypeDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "Attributes") [] (TyList (TyCon (UnQual (Ident "Attribute")))),InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Attribute"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Damping")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "Damping"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "K")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "K"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "URL")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "URL"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ArrowHead")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "arrowhead"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ArrowSize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "arrowsize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ArrowTail")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "arrowtail"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Aspect")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "aspect"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Bb")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "bb"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "BgColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "bgcolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Center")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "center"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Charset")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "charset"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ClusterRank")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "clusterrank"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ColorScheme")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "colorscheme"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Color")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "color"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Comment")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "comment"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Compound")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "compound"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Concentrate")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "concentrate"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Constraint")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "constraint"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Decorate")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "decorate"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "DefaultDist")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "defaultdist"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Dimen")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "dimen"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Dim")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "dim"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Dir")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "dir"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "DirEdgeConstraints")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "diredgeconstraints"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Distortion")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "distortion"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "DPI")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "dpi"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "EdgeURL")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "edgeURL"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "EdgeTarget")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "edgetarget"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "EdgeTooltip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "edgetooltip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Epsilon")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "epsilon"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ESep")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "esep"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FillColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fillcolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FixedSize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fixedsize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FontColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fontcolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FontName")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fontname"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FontNames")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fontnames"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FontPath")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fontpath"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FontSize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fontsize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Group")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "group"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadURL")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headURL"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadClip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headclip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadLabel")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headlabel"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadPort")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headport"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadTarget")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headtarget"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadTooltip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headtooltip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Height")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "height"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ID")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "id"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Image")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "image"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ImageScale")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "imagescale"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelURL")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelURL"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelAngle")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelangle"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelDistance")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labeldistance"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelFloat")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelfloat"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelFontColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelfontcolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelFontName")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelfontname"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelFontSize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelfontsize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelJust")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labeljust"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelLoc")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelloc"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelTarget")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labeltarget"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelTooltip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labeltooltip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Label")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "label"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Landscape")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "landscape"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LayerSep")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "layersep"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Layers")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "layers"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Layer")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "layer"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Layout")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "layout"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Len")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "len"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LevelsGap")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "levelsgap"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Levels")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "levels"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LHead")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "lhead"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LPos")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "lp"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LTail")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "ltail"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Margin")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "margin"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "MaxIter")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "maxiter"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "MCLimit")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "mclimit"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "MinDist")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "mindist"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "MinLen")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "minlen"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Model")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "model"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Mode")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "mode"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Mosek")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "mosek"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "NodeSep")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "nodesep"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "NoJustify")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "nojustify"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Normalize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "normalize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Nslimit1")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "nslimit1"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Nslimit")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "nslimit"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Ordering")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "ordering"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Orientation")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "orientation"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "OutputOrder")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "outputorder"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "OverlapScaling")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "overlap_scaling"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Overlap")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "overlap"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PackMode")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "packmode"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Pack")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pack"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Pad")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pad"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PageDir")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pagedir"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Page")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "page"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PenColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pencolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PenWidth")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "penwidth"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Peripheries")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "peripheries"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Pin")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pin"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Pos")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pos"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "QuadTree")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "quadtree"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Quantum")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "quantum"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "RankDir")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "rankdir"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "RankSep")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "ranksep"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Rank")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "rank"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Ratio")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "ratio"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Rects")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "rects"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Regular")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "regular"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ReMinCross")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "remincross"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "RepulsiveForce")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "repulsiveforce"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Root")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "root"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Rotate")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "rotate"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SameHead")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "samehead"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SameTail")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "sametail"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SamplePoints")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "samplepoints"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SearchSize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "searchsize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Sep")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "sep"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ShapeFile")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "shapefile"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Shape")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "shape"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ShowBoxes")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "showboxes"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Sides")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "sides"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Size")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "size"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Skew")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "skew"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Smoothing")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "smoothing"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SortV")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "sortv"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Splines")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "splines"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Start")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "start"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "StyleSheet")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "stylesheet"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Style")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "style"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailURL")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tailURL"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailClip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tailclip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailLabel")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "taillabel"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailPort")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tailport"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailTarget")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tailtarget"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailTooltip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tailtooltip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Target")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "target"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Tooltip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tooltip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TrueColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "truecolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Vertices")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "vertices"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ViewPort")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "viewport"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "VoroMargin")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "voro_margin"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Weight")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "weight"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Width")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "width"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Z")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "z"))) (Var (UnQual (Ident "v"))))) (BDecls [])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "listToDot")) Nothing (UnGuardedRhs (Var (UnQual (Ident "unqtListToDot")))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Attribute"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Damping")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "Damping"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "K")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "K"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "URL")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "URL"),Lit (String "href")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ArrowHead")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "arrowhead"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ArrowSize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "arrowsize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ArrowTail")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "arrowtail"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Aspect")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "aspect"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Bb")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "bb"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "BgColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "bgcolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Center")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "center"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Charset")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "charset"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ClusterRank")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "clusterrank"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ColorScheme")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "colorscheme"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Color")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "color"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Comment")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "comment"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Compound")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "compound"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Concentrate")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "concentrate"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Constraint")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "constraint"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Decorate")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "decorate"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "DefaultDist")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "defaultdist"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Dimen")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "dimen"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Dim")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "dim"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Dir")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "dir"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "DirEdgeConstraints")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "EdgeConstraints")))) (Lit (String "diredgeconstraints"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Distortion")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "distortion"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "DPI")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "dpi"),Lit (String "resolution")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "EdgeURL")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "edgeURL"),Lit (String "edgehref")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "EdgeTarget")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "edgetarget"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "EdgeTooltip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "edgetooltip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Epsilon")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "epsilon"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ESep")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "esep"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FillColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fillcolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FixedSize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "fixedsize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FontColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fontcolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FontName")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fontname"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FontNames")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fontnames"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FontPath")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fontpath"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FontSize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fontsize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Group")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "group"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadURL")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "headURL"),Lit (String "headhref")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadClip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "headclip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadLabel")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "headlabel"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadPort")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "headport"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadTarget")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "headtarget"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadTooltip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "headtooltip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Height")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "height"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ID")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "id"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Image")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "image"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ImageScale")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "UniformScale")))) (Lit (String "imagescale"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelURL")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "labelURL"),Lit (String "labelhref")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelAngle")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labelangle"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelDistance")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labeldistance"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelFloat")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "labelfloat"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelFontColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labelfontcolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelFontName")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labelfontname"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelFontSize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labelfontsize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelJust")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labeljust"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelLoc")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labelloc"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelTarget")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labeltarget"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelTooltip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labeltooltip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Label")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "label"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Landscape")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "landscape"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LayerSep")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "layersep"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Layers")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "layers"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Layer")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "layer"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Layout")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "layout"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Len")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "len"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LevelsGap")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "levelsgap"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Levels")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "levels"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LHead")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "lhead"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LPos")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "lp"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LTail")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "ltail"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Margin")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "margin"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "MaxIter")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "maxiter"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "MCLimit")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "mclimit"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "MinDist")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "mindist"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "MinLen")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "minlen"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Model")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "model"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Mode")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "mode"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Mosek")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "mosek"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NodeSep")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "nodesep"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NoJustify")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "nojustify"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Normalize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "normalize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Nslimit1")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "nslimit1"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Nslimit")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "nslimit"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Ordering")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "ordering"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Orientation")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "orientation"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "OutputOrder")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "outputorder"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "OverlapScaling")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "overlap_scaling"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Overlap")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "KeepOverlaps")))) (Lit (String "overlap"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PackMode")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "packmode"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Pack")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "DoPack")))) (Lit (String "pack"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Pad")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "pad"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PageDir")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "pagedir"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Page")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "page"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PenColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "pencolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PenWidth")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "penwidth"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Peripheries")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "peripheries"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Pin")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "pin"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Pos")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "pos"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "QuadTree")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "NormalQT")))) (Lit (String "quadtree"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Quantum")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "quantum"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "RankDir")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "rankdir"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "RankSep")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "ranksep"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Rank")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "rank"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Ratio")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "ratio"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Rects")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "rects"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Regular")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "regular"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ReMinCross")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "remincross"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "RepulsiveForce")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "repulsiveforce"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Root")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "IsCentral")))) (Lit (String "root"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Rotate")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "rotate"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "SameHead")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "samehead"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "SameTail")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "sametail"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "SamplePoints")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "samplepoints"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "SearchSize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "searchsize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Sep")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "sep"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ShapeFile")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "shapefile"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Shape")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "shape"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ShowBoxes")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "showboxes"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Sides")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "sides"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Size")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "size"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Skew")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "skew"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Smoothing")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "smoothing"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "SortV")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "sortv"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Splines")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "SplineEdges")))) (Lit (String "splines"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Start")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "start"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "StyleSheet")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "stylesheet"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Style")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "style"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailURL")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "tailURL"),Lit (String "tailhref")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailClip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "tailclip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailLabel")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "taillabel"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailPort")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "tailport"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailTarget")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "tailtarget"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailTooltip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "tailtooltip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Target")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "target"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Tooltip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "tooltip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TrueColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "truecolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Vertices")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "vertices"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ViewPort")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "viewport"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "VoroMargin")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "voro_margin"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Weight")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "weight"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Width")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "width"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Z")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "z")))]))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (Var (UnQual (Ident "parseUnqt")))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseList")) Nothing (UnGuardedRhs (Var (UnQual (Ident "parseUnqtList")))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "usedByGraphs"] (TyFun (TyCon (UnQual (Ident "Attribute"))) (TyCon (UnQual (Ident "Bool")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Damping")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "K")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "URL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Aspect")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Bb")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "BgColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Center")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Charset")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ClusterRank")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ColorScheme")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Comment")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Compound")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Concentrate")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "DefaultDist")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Dimen")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Dim")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "DirEdgeConstraints")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "DPI")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Epsilon")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ESep")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "FontColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "FontName")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "FontNames")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "FontPath")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "FontSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ID")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "LabelJust")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "LabelLoc")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Label")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Landscape")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "LayerSep")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Layers")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Layout")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "LevelsGap")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Levels")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "LPos")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Margin")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "MaxIter")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "MCLimit")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "MinDist")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Model")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Mode")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Mosek")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "NodeSep")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "NoJustify")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Normalize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Nslimit1")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Nslimit")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Ordering")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "OutputOrder")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "OverlapScaling")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Overlap")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "PackMode")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Pack")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Pad")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "PageDir")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Page")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "QuadTree")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Quantum")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "RankDir")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "RankSep")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Ratio")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ReMinCross")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "RepulsiveForce")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Root")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Rotate")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "SearchSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Sep")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ShowBoxes")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Size")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Smoothing")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "SortV")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Splines")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Start")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "StyleSheet")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Target")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "TrueColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ViewPort")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "VoroMargin")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PWildCard] Nothing (UnGuardedRhs (Con (UnQual (Ident "False")))) (BDecls [])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "usedByClusters"] (TyFun (TyCon (UnQual (Ident "Attribute"))) (TyCon (UnQual (Ident "Bool")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "K")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "URL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "BgColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "ColorScheme")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Color")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "FillColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "FontColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "FontName")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "FontSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "LabelJust")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "LabelLoc")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Label")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "LPos")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "NoJustify")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "PenColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "PenWidth")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Peripheries")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Rank")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "SortV")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Style")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Target")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Tooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PWildCard] Nothing (UnGuardedRhs (Con (UnQual (Ident "False")))) (BDecls [])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "usedBySubGraphs"] (TyFun (TyCon (UnQual (Ident "Attribute"))) (TyCon (UnQual (Ident "Bool")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedBySubGraphs") [PRec (UnQual (Ident "Rank")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedBySubGraphs") [PWildCard] Nothing (UnGuardedRhs (Con (UnQual (Ident "False")))) (BDecls [])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "usedByNodes"] (TyFun (TyCon (UnQual (Ident "Attribute"))) (TyCon (UnQual (Ident "Bool")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "URL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "ColorScheme")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Color")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Comment")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Distortion")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "FillColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "FixedSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "FontColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "FontName")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "FontSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Group")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Height")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "ID")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Image")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "ImageScale")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "LabelLoc")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Label")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Layer")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Margin")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "NoJustify")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Orientation")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "PenWidth")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Peripheries")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Pin")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Pos")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Rects")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Regular")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Root")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "SamplePoints")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "ShapeFile")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Shape")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "ShowBoxes")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Sides")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Skew")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "SortV")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Style")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Target")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Tooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Vertices")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Width")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Z")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PWildCard] Nothing (UnGuardedRhs (Con (UnQual (Ident "False")))) (BDecls [])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "usedByEdges"] (TyFun (TyCon (UnQual (Ident "Attribute"))) (TyCon (UnQual (Ident "Bool")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "URL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ArrowHead")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ArrowSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ArrowTail")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ColorScheme")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Color")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Comment")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Constraint")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Decorate")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Dir")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "EdgeURL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "EdgeTarget")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "EdgeTooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "FontColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "FontName")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "FontSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadURL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadClip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadLabel")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadPort")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadTarget")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadTooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ID")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelURL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelAngle")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelDistance")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelFloat")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelFontColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelFontName")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelFontSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelTarget")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelTooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Label")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Layer")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Len")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LHead")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LPos")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LTail")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "MinLen")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "NoJustify")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "PenWidth")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Pos")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "SameHead")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "SameTail")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ShowBoxes")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Style")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailURL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailClip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailLabel")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailPort")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailTarget")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailTooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Target")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Tooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Weight")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PWildCard] Nothing (UnGuardedRhs (Con (UnQual (Ident "False")))) (BDecls [])],TypeDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "EscString") [] (TyCon (UnQual (Ident "String"))),DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) NewType [] (Ident "URL") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (RecDecl (Ident "UStr") [([Ident "urlString"],UnBangedTy (TyCon (UnQual (Ident "EscString"))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "URL"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "unqtDot")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "wrap"))) (Paren (App (Var (UnQual (Ident "char"))) (Lit (Char '<'))))) (Paren (App (Var (UnQual (Ident "char"))) (Lit (Char '>'))))) (QVarOp (UnQual (Symbol "."))) (InfixApp (Var (UnQual (Ident "text"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "urlString")))))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "URL"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "UStr")))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (Var (UnQual (Ident "bracket"))) (Paren (App (Var (UnQual (Ident "character"))) (Var (UnQual (Ident "open")))))) (Paren (App (Var (UnQual (Ident "character"))) (Var (UnQual (Ident "close")))))) (Paren (InfixApp (Var (UnQual (Ident "many1"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "satisfy"))) (Paren (App (Var (UnQual (Symbol "/="))) (Var (UnQual (Ident "close"))))))))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "open")) Nothing (UnGuardedRhs (Lit (Char '<'))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "close")) Nothing (UnGuardedRhs (Lit (Char '>'))) (BDecls [])])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (Var (UnQual (Ident "parseUnqt")))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) NewType [] (Ident "ArrowType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "AType") [UnBangedTy (TyList (TyTuple Boxed [TyCon (UnQual (Ident "ArrowModifier")),TyCon (UnQual (Ident "ArrowShape"))]))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "box",Ident "crow",Ident "diamond",Ident "dotArrow",Ident "inv",Ident "noArrow",Ident "normal",Ident "tee",Ident "vee"] (TyCon (UnQual (Ident "ArrowType"))),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "oDot",Ident "invDot",Ident "invODot",Ident "oBox",Ident "oDiamond"] (TyCon (UnQual (Ident "ArrowType"))),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "eDiamond",Ident "openArr",Ident "halfOpen",Ident "emptyArr",Ident "invEmpty"] (TyCon (UnQual (Ident "ArrowType"))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "normal")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Normal"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "inv")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Inv"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "dotArrow")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "DotArrow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "invDot")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Inv"))],Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "DotArrow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "oDot")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [App (App (Con (UnQual (Ident "ArrMod"))) (Con (UnQual (Ident "OpenArrow")))) (Con (UnQual (Ident "BothSides"))),Con (UnQual (Ident "DotArrow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "invODot")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Inv"))],Tuple Boxed [Var (UnQual (Ident "openMod")),Con (UnQual (Ident "DotArrow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "noArrow")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "NoArrow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "tee")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Tee"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "emptyArr")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "openMod")),Con (UnQual (Ident "Normal"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "invEmpty")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Inv"))],Tuple Boxed [Var (UnQual (Ident "openMod")),Con (UnQual (Ident "Normal"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "diamond")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Diamond"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "oDiamond")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "openMod")),Con (UnQual (Ident "Diamond"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "eDiamond")) Nothing (UnGuardedRhs (Var (UnQual (Ident "oDiamond")))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "crow")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Crow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "box")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Box"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "oBox")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "openMod")),Con (UnQual (Ident "Box"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "openArr")) Nothing (UnGuardedRhs (Var (UnQual (Ident "vee")))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "halfOpen")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [App (App (Con (UnQual (Ident "ArrMod"))) (Con (UnQual (Ident "FilledArrow")))) (Con (UnQual (Ident "LeftSide"))),Con (UnQual (Ident "Vee"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "vee")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Vee"))]]))) (BDecls []),InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ArrowType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "AType")) [PVar (Ident "mas")])] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "hcat"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "appMod")))) (Var (UnQual (Ident "mas")))))) (BDecls [FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "appMod") [PTuple Boxed [PVar (Ident "m"),PVar (Ident "a")]] Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "m")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "a")))))) (BDecls [])]])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ArrowType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "mas")) (InfixApp (Var (UnQual (Ident "many1"))) (QVarOp (UnQual (Symbol "$"))) (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "m")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "a")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (App (Var (UnQual (Ident "return"))) (Tuple Boxed [Var (UnQual (Ident "m")),Var (UnQual (Ident "a"))]))])),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (Con (UnQual (Ident "AType"))) (Var (UnQual (Ident "mas")))))]) (QVarOp (UnQual (Ident "onFail"))) (Var (UnQual (Ident "specialArrowParse"))))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "specialArrowParse"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyCon (UnQual (Ident "ArrowType")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "specialArrowParse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Var (UnQual (Ident "eDiamond")))) (Lit (String "ediamond")),App (App (Var (UnQual (Ident "stringRep"))) (Var (UnQual (Ident "openArr")))) (Lit (String "open")),App (App (Var (UnQual (Ident "stringRep"))) (Var (UnQual (Ident "halfOpen")))) (Lit (String "halfopen")),App (App (Var (UnQual (Ident "stringRep"))) (Var (UnQual (Ident "emptyArr")))) (Lit (String "empty")),App (App (Var (UnQual (Ident "stringRep"))) (Var (UnQual (Ident "invEmpty")))) (Lit (String "invempty"))]))) (BDecls []),DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ArrowShape") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Box") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Crow") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Diamond") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DotArrow") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Inv") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoArrow") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Normal") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Tee") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Vee") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ArrowShape"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Box")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "box")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Crow")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "crow")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Diamond")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "diamond")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DotArrow")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "dot")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Inv")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "inv")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoArrow")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "none")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Normal")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "normal")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Tee")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "tee")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Vee")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "vee")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ArrowShape"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Box")))) (Lit (String "box")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Crow")))) (Lit (String "crow")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Diamond")))) (Lit (String "diamond")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "DotArrow")))) (Lit (String "dot")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Inv")))) (Lit (String "inv")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoArrow")))) (Lit (String "none")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Normal")))) (Lit (String "normal")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Tee")))) (Lit (String "tee")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Vee")))) (Lit (String "vee"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ArrowModifier") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (RecDecl (Ident "ArrMod") [([Ident "arrowFill"],UnBangedTy (TyCon (UnQual (Ident "ArrowFill")))),([Ident "arrowSide"],UnBangedTy (TyCon (UnQual (Ident "ArrowSide"))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "noMods"] (TyCon (UnQual (Ident "ArrowModifier"))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "noMods")) Nothing (UnGuardedRhs (App (App (Con (UnQual (Ident "ArrMod"))) (Con (UnQual (Ident "FilledArrow")))) (Con (UnQual (Ident "BothSides"))))) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "openMod"] (TyCon (UnQual (Ident "ArrowModifier"))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "openMod")) Nothing (UnGuardedRhs (App (App (Con (UnQual (Ident "ArrMod"))) (Con (UnQual (Ident "OpenArrow")))) (Con (UnQual (Ident "BothSides"))))) (BDecls []),InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ArrowModifier"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ArrMod")) [PVar (Ident "f"),PVar (Ident "s")])] Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "f")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ArrowModifier"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "f")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "s")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Con (UnQual (Ident "ArrMod"))) (Var (UnQual (Ident "f")))) (Var (UnQual (Ident "s")))))])) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ArrowFill") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "OpenArrow") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FilledArrow") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ArrowFill"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "OpenArrow")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'o')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FilledArrow")) []] Nothing (UnGuardedRhs (Var (UnQual (Ident "empty")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ArrowFill"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "liftM"))) (Paren (InfixApp (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "FilledArrow")))) (Con (UnQual (Ident "OpenArrow")))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "isJust")))))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "optional"))) (Paren (App (Var (UnQual (Ident "character"))) (Lit (Char 'o'))))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (Var (UnQual (Ident "parseUnqt")))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ArrowSide") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LeftSide") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RightSide") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "BothSides") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ArrowSide"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "LeftSide")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'l')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "RightSide")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'r')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "BothSides")) []] Nothing (UnGuardedRhs (Var (UnQual (Ident "empty")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ArrowSide"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "getSideType")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "optional"))) (Paren (InfixApp (Var (UnQual (Ident "oneOf"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "character")))) (List [Lit (Char 'l'),Lit (Char 'r')]))))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "getSideType")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "maybe"))) (Con (UnQual (Ident "BothSides")))) (Paren (InfixApp (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "RightSide")))) (Con (UnQual (Ident "LeftSide")))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Symbol "=="))) (Lit (Char 'l'))))))) (BDecls [])])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (Var (UnQual (Ident "parseUnqt")))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "AspectType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RatioOnly") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RatioPassCount") [UnBangedTy (TyCon (UnQual (Ident "Double"))),UnBangedTy (TyCon (UnQual (Ident "Int")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "AspectType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "RatioOnly")) [PVar (Ident "r")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "r"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "RatioPassCount")) [PVar (Ident "r"),PVar (Ident "p")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "commaDel"))) (Var (UnQual (Ident "r")))) (Var (UnQual (Ident "p"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PAsPat (Ident "at") (PRec (UnQual (Ident "RatioOnly")) [])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "at"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PAsPat (Ident "at") (PRec (UnQual (Ident "RatioPassCount")) [])] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "at")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "AspectType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "RatioPassCount")))))) (Var (UnQual (Ident "commaSepUnqt")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "RatioOnly")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Paren (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "RatioPassCount")))))) (Var (UnQual (Ident "commaSepUnqt")))))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "RatioOnly")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Rect") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rect") [UnBangedTy (TyCon (UnQual (Ident "Point"))),UnBangedTy (TyCon (UnQual (Ident "Point")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Rect"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Rect")) [PVar (Ident "p1"),PVar (Ident "p2")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "commaDel"))) (Var (UnQual (Ident "p1")))) (Var (UnQual (Ident "p2"))))) (BDecls [])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "toDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot"))))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Rect"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "Rect")))))) (Var (UnQual (Ident "commaSepUnqt"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ClusterMode") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Local") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Global") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoCluster") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ClusterMode"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Local")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "local")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Global")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "global")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoCluster")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "none")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ClusterMode"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Local")))) (Lit (String "local")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Global")))) (Lit (String "global")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoCluster")))) (Lit (String "none"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "DirType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Forward") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Back") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Both") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoDir") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "DirType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Forward")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "forward")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Back")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "back")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Both")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "both")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoDir")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "none")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "DirType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Forward")))) (Lit (String "forward")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Back")))) (Lit (String "back")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Both")))) (Lit (String "both")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoDir")))) (Lit (String "none"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "DEConstraints") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "EdgeConstraints") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoConstraints") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HierConstraints") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "DEConstraints"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "EdgeConstraints")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoConstraints")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "HierConstraints")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "hier")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "DEConstraints"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "NoConstraints")))) (Con (UnQual (Ident "EdgeConstraints")))))) (Var (UnQual (Ident "parse")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "HierConstraints")))) (Lit (String "hier"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "DPoint") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DVal") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PVal") [UnBangedTy (TyCon (UnQual (Ident "Point")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "DPoint"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "DVal")) [PVar (Ident "d")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "d"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PVal")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "p"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "DVal")) [PVar (Ident "d")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "d"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "PVal")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "p"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "DPoint"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PVal")))) (Var (UnQual (Ident "parseUnqt")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "DVal")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PVal")))) (Var (UnQual (Ident "parse")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "DVal")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ModeType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Major") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "KK") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Hier") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "IpSep") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ModeType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Major")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "major")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "KK")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "KK")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Hier")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "hier")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "IpSep")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "ipsep")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ModeType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Major")))) (Lit (String "major")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "KK")))) (Lit (String "KK")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Hier")))) (Lit (String "hier")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "IpSep")))) (Lit (String "ipsep"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Model") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ShortPath") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SubSet") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Circuit") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Model"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "ShortPath")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "shortpath")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SubSet")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "subset")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Circuit")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "circuit")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Model"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "ShortPath")))) (Lit (String "shortpath")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SubSet")))) (Lit (String "subset")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Circuit")))) (Lit (String "circuit"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Label") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "StrLabel") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "URLLabel") [UnBangedTy (TyCon (UnQual (Ident "URL")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Label"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "StrLabel")) [PVar (Ident "s")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "URLLabel")) [PVar (Ident "u")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "u"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "StrLabel")) [PVar (Ident "s")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "s"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "URLLabel")) [PVar (Ident "u")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "u"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Label"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "StrLabel")))) (Var (UnQual (Ident "parseUnqt")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "URLLabel")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "StrLabel")))) (Var (UnQual (Ident "parse")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "URLLabel")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Point") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Point") [UnBangedTy (TyCon (UnQual (Ident "Int"))),UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PointD") [UnBangedTy (TyCon (UnQual (Ident "Double"))),UnBangedTy (TyCon (UnQual (Ident "Double")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Point"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Point")) [PVar (Ident "x"),PVar (Ident "y")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "commaDel"))) (Var (UnQual (Ident "x")))) (Var (UnQual (Ident "y"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PointD")) [PVar (Ident "x"),PVar (Ident "y")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "commaDel"))) (Var (UnQual (Ident "x")))) (Var (UnQual (Ident "y"))))) (BDecls [])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "toDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "unqtListToDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "hsep"))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "unqtDot")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "listToDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtListToDot"))))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Point"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "intDblPoint"))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "Point")))))) (Var (UnQual (Ident "commaSepUnqt"))))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "PointD")))))) (Var (UnQual (Ident "commaSepUnqt")))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "intDblPoint")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "liftM"))) (Paren (InfixApp (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "PointD")))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "first"))) (Var (UnQual (Ident "fI"))))))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "commaSep'"))) (Var (UnQual (Ident "parseUnqt")))) (Var (UnQual (Ident "parseStrictFloat")))))) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "fI"] (TyFun (TyCon (UnQual (Ident "Int"))) (TyCon (UnQual (Ident "Double")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "fI")) Nothing (UnGuardedRhs (Var (UnQual (Ident "fromIntegral")))) (BDecls [])])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqtList")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "sepBy1"))) (Var (UnQual (Ident "parseUnqt")))) (Var (UnQual (Ident "whitespace"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Overlap") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "KeepOverlaps") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RemoveOverlaps") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ScaleOverlaps") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ScaleXYOverlaps") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PrismOverlap") [UnBangedTy (TyParen (TyApp (TyCon (UnQual (Ident "Maybe"))) (TyCon (UnQual (Ident "Int")))))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "CompressOverlap") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "VpscOverlap") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "IpsepOverlap") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Overlap"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "KeepOverlaps")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "RemoveOverlaps")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "ScaleOverlaps")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "scale")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "ScaleXYOverlaps")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "scalexy")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PrismOverlap")) [PVar (Ident "i")])] Nothing (UnGuardedRhs (InfixApp (App (App (App (Var (UnQual (Ident "maybe"))) (Var (UnQual (Ident "id")))) (Paren (InfixApp (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "<>")))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot")))))) (Var (UnQual (Ident "i")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "text"))) (Lit (String "prism"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "CompressOverlap")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "compress")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "VpscOverlap")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "vpsc")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "IpsepOverlap")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "ipsep")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Overlap"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "KeepOverlaps")))) (Lit (String "true")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "RemoveOverlaps")))) (Lit (String "false")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "ScaleXYOverlaps")))) (Lit (String "scalexy")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "ScaleOverlaps")))) (Lit (String "scale")),InfixApp (App (Var (UnQual (Ident "string"))) (Lit (String "prism"))) (QVarOp (UnQual (Symbol ">>"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PrismOverlap")))) (Paren (App (Var (UnQual (Ident "optional"))) (Var (UnQual (Ident "parse")))))),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "CompressOverlap")))) (Lit (String "compress")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "VpscOverlap")))) (Lit (String "vpsc")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "IpsepOverlap")))) (Lit (String "ipsep"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "LayerRange") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LRID") [UnBangedTy (TyCon (UnQual (Ident "LayerID")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LRS") [UnBangedTy (TyCon (UnQual (Ident "LayerID"))),UnBangedTy (TyCon (UnQual (Ident "String"))),UnBangedTy (TyCon (UnQual (Ident "LayerID")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "LayerRange"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LRID")) [PVar (Ident "lid")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "lid"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LRS")) [PVar (Ident "id1"),PVar (Ident "s"),PVar (Ident "id2")])] Nothing (UnGuardedRhs (InfixApp (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "id1")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s"))))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "id2")))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "LRID")) [PVar (Ident "lid")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "lid"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "lrs")] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "lrs")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "LayerRange"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "id1")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "s")) (Var (UnQual (Ident "parseLayerSep"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "id2")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (Con (UnQual (Ident "LRS"))) (Var (UnQual (Ident "id1")))) (Var (UnQual (Ident "s")))) (Var (UnQual (Ident "id2")))))]) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LRID")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Paren (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "id1")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "s")) (Var (UnQual (Ident "parseLayerSep"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "id2")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (Con (UnQual (Ident "LRS"))) (Var (UnQual (Ident "id1")))) (Var (UnQual (Ident "s")))) (Var (UnQual (Ident "id2")))))]))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LRID")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "parseLayerSep"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyCon (UnQual (Ident "String")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseLayerSep")) Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "many1"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "oneOf")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "character")))) (Var (UnQual (Ident "defLayerSep")))))) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "defLayerSep"] (TyList (TyCon (UnQual (Ident "Char")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "defLayerSep")) Nothing (UnGuardedRhs (List [Lit (Char ' '),Lit (Char ':'),Lit (Char '\t')])) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "parseLayerName"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyCon (UnQual (Ident "String")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseLayerName")) Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "many1"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "orQuote")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "satisfy"))) (Paren (App (App (App (Var (UnQual (Ident "liftM2"))) (Var (UnQual (Symbol "&&")))) (Var (UnQual (Ident "notLayerSep")))) (Paren (App (Var (UnQual (Symbol "/="))) (Var (UnQual (Ident "quoteChar")))))))))) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "parseLayerName'"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyCon (UnQual (Ident "String")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseLayerName'")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "stringBlock"))) (QVarOp (UnQual (Ident "onFail"))) (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseLayerName")))))) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "notLayerSep"] (TyFun (TyCon (UnQual (Ident "Char"))) (TyCon (UnQual (Ident "Bool")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "notLayerSep")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Ident "notElem")))) (Var (UnQual (Ident "defLayerSep"))))) (BDecls []),DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "LayerID") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "AllLayers") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LRInt") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LRName") [UnBangedTy (TyCon (UnQual (Ident "String")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "LayerID"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "AllLayers")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "all")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LRInt")) [PVar (Ident "n")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "n"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LRName")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "nm"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "LRName")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "nm"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "li")] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "li"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "LayerID"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "checkLayerName")))) (Var (UnQual (Ident "parseLayerName"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "checkLayerName")))) (Var (UnQual (Ident "parseLayerName'"))),App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LRInt")))) (Var (UnQual (Ident "parse")))]))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "checkLayerName"] (TyFun (TyCon (UnQual (Ident "String"))) (TyCon (UnQual (Ident "LayerID")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "checkLayerName") [PVar (Ident "str")] Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "maybe"))) (Var (UnQual (Ident "checkAll")))) (Con (UnQual (Ident "LRInt")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "stringToInt"))) (Var (UnQual (Ident "str")))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "checkAll")) Nothing (UnGuardedRhs (If (InfixApp (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "toLower")))) (Var (UnQual (Ident "str")))) (QVarOp (UnQual (Symbol "=="))) (Lit (String "all"))) (Con (UnQual (Ident "AllLayers"))) (App (Con (UnQual (Ident "LRName"))) (Var (UnQual (Ident "str")))))) (BDecls [])])],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "LayerList") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LL") [UnBangedTy (TyCon (UnQual (Ident "String"))),UnBangedTy (TyList (TyTuple Boxed [TyCon (UnQual (Ident "String")),TyCon (UnQual (Ident "String"))]))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "LayerList"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LL")) [PVar (Ident "l1"),PVar (Ident "ols")])] Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "l1")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "hcat"))) (Paren (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "subLL")))) (Var (UnQual (Ident "ols")))))))) (BDecls [FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "subLL") [PTuple Boxed [PVar (Ident "s"),PVar (Ident "l")]] Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "l")))))) (BDecls [])]])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "LL")) [PVar (Ident "l1"),PList []])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "l1"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "ll")] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "ll")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "LayerList"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "l1")) (Var (UnQual (Ident "parseLayerName"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "ols")) (InfixApp (Var (UnQual (Ident "many"))) (QVarOp (UnQual (Symbol "$"))) (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "s")) (Var (UnQual (Ident "parseLayerSep"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "lnm")) (Var (UnQual (Ident "parseLayerName"))),Qualifier (App (Var (UnQual (Ident "return"))) (Tuple Boxed [Var (UnQual (Ident "s")),Var (UnQual (Ident "lnm"))]))])),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Con (UnQual (Ident "LL"))) (Var (UnQual (Ident "l1")))) (Var (UnQual (Ident "ols")))))])) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "flip"))) (Con (UnQual (Ident "LL")))) (List [])))) (Paren (InfixApp (Var (UnQual (Ident "parseLayerName'"))) (QVarOp (UnQual (Ident "onFail"))) (Var (UnQual (Ident "numString")))))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "OutputMode") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "BreadthFirst") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NodesFirst") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "EdgesFirst") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "OutputMode"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "BreadthFirst")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "breadthfirst")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NodesFirst")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "nodesfirst")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "EdgesFirst")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "edgesfirst")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "OutputMode"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "BreadthFirst")))) (Lit (String "breadthfirst")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NodesFirst")))) (Lit (String "nodesfirst")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "EdgesFirst")))) (Lit (String "edgesfirst"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Pack") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DoPack") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DontPack") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackMargin") [UnBangedTy (TyCon (UnQual (Ident "Int")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Pack"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DoPack")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DontPack")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PackMargin")) [PVar (Ident "m")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "m"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Pack"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PackMargin")))) (Var (UnQual (Ident "parseUnqt"))),App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "DontPack")))) (Con (UnQual (Ident "DoPack")))))) (Var (UnQual (Ident "onlyBool")))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "PackMode") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackNode") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackClust") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackGraph") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackArray") [UnBangedTy (TyCon (UnQual (Ident "Bool"))),UnBangedTy (TyCon (UnQual (Ident "Bool"))),UnBangedTy (TyParen (TyApp (TyCon (UnQual (Ident "Maybe"))) (TyCon (UnQual (Ident "Int")))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "PackMode"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PackNode")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "node")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PackClust")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "clust")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PackGraph")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "graph")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PackArray")) [PVar (Ident "c"),PVar (Ident "u"),PVar (Ident "mi")])] Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "addNum"))) (QVarOp (UnQual (Symbol "."))) (InfixApp (Var (UnQual (Ident "isU"))) (QVarOp (UnQual (Symbol "."))) (InfixApp (Var (UnQual (Ident "isC"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "isUnder")))))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "text"))) (Lit (String "array"))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "addNum")) Nothing (UnGuardedRhs (App (App (App (Var (UnQual (Ident "maybe"))) (Var (UnQual (Ident "id")))) (Paren (InfixApp (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "<>")))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot")))))) (Var (UnQual (Ident "mi"))))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "isUnder")) Nothing (UnGuardedRhs (If (InfixApp (Var (UnQual (Ident "c"))) (QVarOp (UnQual (Symbol "||"))) (Var (UnQual (Ident "u")))) (InfixApp (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "<>")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "char"))) (Lit (Char '_')))) (Var (UnQual (Ident "id"))))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "isC")) Nothing (UnGuardedRhs (If (Var (UnQual (Ident "c"))) (InfixApp (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "<>")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "char"))) (Lit (Char 'c')))) (Var (UnQual (Ident "id"))))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "isU")) Nothing (UnGuardedRhs (If (Var (UnQual (Ident "u"))) (InfixApp (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "<>")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "char"))) (Lit (Char 'u')))) (Var (UnQual (Ident "id"))))) (BDecls [])])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "PackMode"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PackNode")))) (Lit (String "node")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PackClust")))) (Lit (String "clust")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PackGraph")))) (Lit (String "graph")),Do [Qualifier (App (Var (UnQual (Ident "string"))) (Lit (String "array"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "mcu")) (InfixApp (Var (UnQual (Ident "optional"))) (QVarOp (UnQual (Symbol "$"))) (Do [Qualifier (App (Var (UnQual (Ident "character"))) (Lit (Char '_'))),Qualifier (InfixApp (Var (UnQual (Ident "many1"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "satisfy"))) (Var (UnQual (Ident "isCU")))))])),LetStmt (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "c")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "hasCharacter"))) (Var (UnQual (Ident "mcu")))) (Lit (Char 'c')))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "u")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "hasCharacter"))) (Var (UnQual (Ident "mcu")))) (Lit (Char 'u')))) (BDecls [])]),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "mi")) (App (Var (UnQual (Ident "optional"))) (Var (UnQual (Ident "parseUnqt")))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (Con (UnQual (Ident "PackArray"))) (Var (UnQual (Ident "c")))) (Var (UnQual (Ident "u")))) (Var (UnQual (Ident "mi")))))]]))) (BDecls [FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "hasCharacter") [PVar (Ident "ms"),PVar (Ident "c")] Nothing (UnGuardedRhs (App (App (App (Var (UnQual (Ident "maybe"))) (Con (UnQual (Ident "False")))) (Paren (App (Var (UnQual (Ident "elem"))) (Var (UnQual (Ident "c")))))) (Var (UnQual (Ident "ms"))))) (BDecls [])],PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "isCU")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Ident "elem")))) (List [Lit (Char 'c'),Lit (Char 'u')]))) (BDecls [])]))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Pos") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PointPos") [UnBangedTy (TyCon (UnQual (Ident "Point")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SplinePos") [UnBangedTy (TyList (TyCon (UnQual (Ident "Spline"))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Pos"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PointPos")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "p"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SplinePos")) [PVar (Ident "ss")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "ss"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "PointPos")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "p"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "SplinePos")) [PVar (Ident "ss")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "ss"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Pos"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "splns")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (Case (Var (UnQual (Ident "splns"))) [Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PList [PApp (UnQual (Ident "Spline")) [PApp (UnQual (Ident "Nothing")) [],PApp (UnQual (Ident "Nothing")) [],PList [PVar (Ident "p")]]]) (UnGuardedAlt (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (Con (UnQual (Ident "PointPos"))) (Var (UnQual (Ident "p")))))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) PWildCard (UnGuardedAlt (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (Con (UnQual (Ident "SplinePos"))) (Var (UnQual (Ident "splns")))))) (BDecls [])])])) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "EdgeType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SplineEdges") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LineEdges") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoEdges") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PolyLine") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "CompoundEdge") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "EdgeType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SplineEdges")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "LineEdges")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoEdges")) []] Nothing (UnGuardedRhs (Var (UnQual (Ident "empty")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PolyLine")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "polyline")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "CompoundEdge")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "compound")))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PApp (UnQual (Ident "NoEdges")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "doubleQuotes"))) (Var (UnQual (Ident "empty"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "et")] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "et"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "EdgeType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "LineEdges")))) (Con (UnQual (Ident "SplineEdges")))))) (Var (UnQual (Ident "parse"))),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SplineEdges")))) (Lit (String "spline")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "LineEdges")))) (Lit (String "line")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PolyLine")))) (Lit (String "polyline")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "CompoundEdge")))) (Lit (String "compound"))]))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoEdges")))) (Lit (String "\"\""))) (QVarOp (UnQual (Ident "onFail"))) (App (Var (UnQual (Ident "optionalQuoted"))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "PageDir") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Bl") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Br") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Tl") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Tr") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rb") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rt") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Lb") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Lt") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "PageDir"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Bl")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "BL")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Br")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "BR")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Tl")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "TL")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Tr")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "TR")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Rb")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "RB")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Rt")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "RT")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Lb")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "LB")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Lt")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "LT")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "PageDir"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Bl")))) (Lit (String "BL")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Br")))) (Lit (String "BR")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Tl")))) (Lit (String "TL")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Tr")))) (Lit (String "TR")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Rb")))) (Lit (String "RB")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Rt")))) (Lit (String "RT")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Lb")))) (Lit (String "LB")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Lt")))) (Lit (String "LT"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Spline") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Spline") [UnBangedTy (TyParen (TyApp (TyCon (UnQual (Ident "Maybe"))) (TyCon (UnQual (Ident "Point"))))),UnBangedTy (TyParen (TyApp (TyCon (UnQual (Ident "Maybe"))) (TyCon (UnQual (Ident "Point"))))),UnBangedTy (TyList (TyCon (UnQual (Ident "Point"))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Spline"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Spline")) [PVar (Ident "ms"),PVar (Ident "me"),PVar (Ident "ps")])] Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "addS"))) (QVarOp (UnQual (Symbol "."))) (InfixApp (Var (UnQual (Ident "addE"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "hsep"))))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "unqtDot")))) (Var (UnQual (Ident "ps")))))) (BDecls [FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "addP") [PVar (Ident "t")] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "maybe"))) (Var (UnQual (Ident "id")))) (Paren (InfixApp (Var (UnQual (Symbol "<+>"))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "commaDel"))) (Var (UnQual (Ident "t")))))))) (BDecls [])],PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "addS")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "addP"))) (Lit (Char 's'))) (Var (UnQual (Ident "ms"))))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "addE")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "addP"))) (Lit (Char 'e'))) (Var (UnQual (Ident "me"))))) (BDecls [])])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "toDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "unqtListToDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "hcat"))) (QVarOp (UnQual (Symbol "."))) (InfixApp (App (Var (UnQual (Ident "punctuate"))) (Var (UnQual (Ident "semi")))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "unqtDot"))))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "listToDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtListToDot"))))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Spline"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "ms")) (App (Var (UnQual (Ident "parseP"))) (Lit (Char 's'))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "me")) (App (Var (UnQual (Ident "parseP"))) (Lit (Char 'e'))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "ps")) (App (App (Var (UnQual (Ident "sepBy1"))) (Var (UnQual (Ident "parseUnqt")))) (Var (UnQual (Ident "whitespace")))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (Con (UnQual (Ident "Spline"))) (Var (UnQual (Ident "ms")))) (Var (UnQual (Ident "me")))) (Var (UnQual (Ident "ps")))))])) (BDecls [FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "parseP") [PVar (Ident "t")] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "optional"))) (QVarOp (UnQual (Symbol "$"))) (Do [Qualifier (App (Var (UnQual (Ident "character"))) (Var (UnQual (Ident "t")))),Qualifier (Var (UnQual (Ident "parseComma"))),Qualifier (InfixApp (Var (UnQual (Ident "parseUnqt"))) (QVarOp (UnQual (Ident "discard"))) (Var (UnQual (Ident "whitespace"))))]))) (BDecls [])]])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqtList")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "sepBy1"))) (Var (UnQual (Ident "parseUnqt")))) (Paren (App (Var (UnQual (Ident "character"))) (Lit (Char ';')))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "QuadType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NormalQT") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FastQT") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoQT") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "QuadType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NormalQT")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "normal")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FastQT")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "fast")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoQT")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "none")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "QuadType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NormalQT")))) (Lit (String "normal")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FastQT")))) (Lit (String "fast")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoQT")))) (Lit (String "none")),InfixApp (App (Var (UnQual (Ident "character"))) (Lit (Char '2'))) (QVarOp (UnQual (Symbol ">>"))) (App (Var (UnQual (Ident "return"))) (Con (UnQual (Ident "FastQT")))),App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "NoQT")))) (Con (UnQual (Ident "NormalQT")))))) (Var (UnQual (Ident "parse")))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Root") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "IsCentral") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NotCentral") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NodeName") [UnBangedTy (TyCon (UnQual (Ident "String")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Root"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "IsCentral")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NotCentral")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "NodeName")) [PVar (Ident "n")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "n"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "NodeName")) [PVar (Ident "n")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "n"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "r")] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "r"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Root"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "NotCentral")))) (Con (UnQual (Ident "IsCentral")))))) (Var (UnQual (Ident "onlyBool")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NodeName")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "optionalQuoted"))) (Paren (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "NotCentral")))) (Con (UnQual (Ident "IsCentral")))))) (Var (UnQual (Ident "onlyBool")))))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NodeName")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "RankType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SameRank") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MinRank") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SourceRank") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MaxRank") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SinkRank") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "RankType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SameRank")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "same")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "MinRank")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "min")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SourceRank")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "source")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "MaxRank")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "max")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SinkRank")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "sink")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "RankType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SameRank")))) (Lit (String "same")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "MinRank")))) (Lit (String "min")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SourceRank")))) (Lit (String "source")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "MaxRank")))) (Lit (String "max")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SinkRank")))) (Lit (String "sink"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "RankDir") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FromTop") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FromLeft") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FromBottom") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FromRight") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "RankDir"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FromTop")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "TB")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FromLeft")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "LR")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FromBottom")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "BT")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FromRight")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "RL")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "RankDir"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FromTop")))) (Lit (String "TB")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FromLeft")))) (Lit (String "LR")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FromBottom")))) (Lit (String "BT")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FromRight")))) (Lit (String "RL"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Shape") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "BoxShape") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Polygon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Ellipse") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Circle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PointShape") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Egg") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Triangle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PlainText") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DiamondShape") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Trapezium") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Parallelogram") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "House") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Pentagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Hexagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Septagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Octagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DoubleCircle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DoubleOctagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TripleOctagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "InvTriangle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "InvTrapezium") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "InvHouse") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MDiamond") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MSquare") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MCircle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Note") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Tab") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Folder") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Box3D") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Component") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Shape"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "BoxShape")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "box")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Polygon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "polygon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Ellipse")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "ellipse")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Circle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "circle")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PointShape")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "point")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Egg")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "egg")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Triangle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "triangle")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PlainText")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "plaintext")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DiamondShape")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "diamond")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Trapezium")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "trapezium")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Parallelogram")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "parallelogram")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "House")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "house")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Pentagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "pentagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Hexagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "hexagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Septagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "septagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Octagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "octagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DoubleCircle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "doublecircle")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DoubleOctagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "doubleoctagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "TripleOctagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "tripleoctagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "InvTriangle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "invtriangle")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "InvTrapezium")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "invtrapezium")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "InvHouse")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "invhouse")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "MDiamond")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "Mdiamond")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "MSquare")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "Msquare")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "MCircle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "Mcircle")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Note")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "note")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Tab")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "tab")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Folder")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "folder")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Box3D")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "box3d")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Component")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "component")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Shape"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Box3D")))) (Lit (String "box3d")),App (App (Var (UnQual (Ident "stringReps"))) (Con (UnQual (Ident "BoxShape")))) (List [Lit (String "box"),Lit (String "rectangle"),Lit (String "rect")]),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Polygon")))) (Lit (String "polygon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Ellipse")))) (Lit (String "ellipse")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Circle")))) (Lit (String "circle")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PointShape")))) (Lit (String "point")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Egg")))) (Lit (String "egg")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Triangle")))) (Lit (String "triangle")),App (App (Var (UnQual (Ident "stringReps"))) (Con (UnQual (Ident "PlainText")))) (List [Lit (String "plaintext"),Lit (String "none")]),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "DiamondShape")))) (Lit (String "diamond")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Trapezium")))) (Lit (String "trapezium")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Parallelogram")))) (Lit (String "parallelogram")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "House")))) (Lit (String "house")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Pentagon")))) (Lit (String "pentagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Hexagon")))) (Lit (String "hexagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Septagon")))) (Lit (String "septagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Octagon")))) (Lit (String "octagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "DoubleCircle")))) (Lit (String "doublecircle")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "DoubleOctagon")))) (Lit (String "doubleoctagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "TripleOctagon")))) (Lit (String "tripleoctagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "InvTriangle")))) (Lit (String "invtriangle")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "InvTrapezium")))) (Lit (String "invtrapezium")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "InvHouse")))) (Lit (String "invhouse")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "MDiamond")))) (Lit (String "Mdiamond")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "MSquare")))) (Lit (String "Msquare")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "MCircle")))) (Lit (String "Mcircle")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Note")))) (Lit (String "note")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Tab")))) (Lit (String "tab")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Folder")))) (Lit (String "folder")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Component")))) (Lit (String "component"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "SmoothType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoSmooth") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "AvgDist") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "GraphDist") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PowerDist") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RNG") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Spring") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TriangleSmooth") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "SmoothType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoSmooth")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "none")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "AvgDist")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "avg_dist")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "GraphDist")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "graph_dist")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PowerDist")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "power_dist")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "RNG")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "rng")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Spring")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "spring")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "TriangleSmooth")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "triangle")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "SmoothType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoSmooth")))) (Lit (String "none")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "AvgDist")))) (Lit (String "avg_dist")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "GraphDist")))) (Lit (String "graph_dist")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PowerDist")))) (Lit (String "power_dist")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "RNG")))) (Lit (String "rng")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Spring")))) (Lit (String "spring")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "TriangleSmooth")))) (Lit (String "triangle"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "StartType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "StartStyle") [UnBangedTy (TyCon (UnQual (Ident "STStyle")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "StartSeed") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "StartStyleSeed") [UnBangedTy (TyCon (UnQual (Ident "STStyle"))),UnBangedTy (TyCon (UnQual (Ident "Int")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "StartType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "StartStyle")) [PVar (Ident "ss")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "ss"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "StartSeed")) [PVar (Ident "s")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "StartStyleSeed")) [PVar (Ident "ss"),PVar (Ident "s")])] Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "ss")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "StartType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "ss")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "s")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Con (UnQual (Ident "StartStyleSeed"))) (Var (UnQual (Ident "ss")))) (Var (UnQual (Ident "s")))))],App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "StartStyle")))) (Var (UnQual (Ident "parseUnqt"))),App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "StartSeed")))) (Var (UnQual (Ident "parseUnqt")))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "STStyle") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RegularStyle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SelfStyle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RandomStyle") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "STStyle"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "RegularStyle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "regular")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SelfStyle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "self")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "RandomStyle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "random")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "STStyle"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "RegularStyle")))) (Lit (String "regular")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SelfStyle")))) (Lit (String "self")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "RandomStyle")))) (Lit (String "random"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "StyleItem") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SItem") [UnBangedTy (TyCon (UnQual (Ident "StyleName"))),UnBangedTy (TyList (TyCon (UnQual (Ident "String"))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "StyleItem"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SItem")) [PVar (Ident "nm"),PVar (Ident "args")])] Nothing (GuardedRhss [GuardedRhs (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Qualifier (App (Var (UnQual (Ident "null"))) (Var (UnQual (Ident "args"))))] (Var (UnQual (Ident "dnm"))),GuardedRhs (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Qualifier (Var (UnQual (Ident "otherwise")))] (InfixApp (Var (UnQual (Ident "dnm"))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "parens"))) (Var (UnQual (Ident "args'")))))]) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "dnm")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "nm"))))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "args'")) Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "hcat"))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "punctuate"))) (Var (UnQual (Ident "comma"))))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "unqtDot")))) (Var (UnQual (Ident "args")))))) (BDecls [])])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PAsPat (Ident "si") (PParen (PApp (UnQual (Ident "SItem")) [PVar (Ident "nm"),PVar (Ident "args")]))] Nothing (GuardedRhss [GuardedRhs (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Qualifier (App (Var (UnQual (Ident "null"))) (Var (UnQual (Ident "args"))))] (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "nm")))),GuardedRhs (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Qualifier (Var (UnQual (Ident "otherwise")))] (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "si")))))]) (BDecls [])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "unqtListToDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "hcat"))) (QVarOp (UnQual (Symbol "."))) (InfixApp (App (Var (UnQual (Ident "punctuate"))) (Var (UnQual (Ident "comma")))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "unqtDot"))))))) (BDecls [])),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "listToDot") [PList [PApp (UnQual (Ident "SItem")) [PVar (Ident "nm"),PList []]]] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "nm"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "listToDot") [PVar (Ident "sis")] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "unqtListToDot"))) (Var (UnQual (Ident "sis")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "StyleItem"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "nm")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "args")) (App (Var (UnQual (Ident "tryParseList'"))) (Var (UnQual (Ident "parseArgs")))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Con (UnQual (Ident "SItem"))) (Var (UnQual (Ident "nm")))) (Var (UnQual (Ident "args")))))])) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Paren (App (App (App (Var (UnQual (Ident "liftM2"))) (Con (UnQual (Ident "SItem")))) (Var (UnQual (Ident "parseUnqt")))) (Var (UnQual (Ident "parseArgs")))))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "flip"))) (Con (UnQual (Ident "SItem")))) (List [])))) (Var (UnQual (Ident "parse")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqtList")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "sepBy1"))) (Var (UnQual (Ident "parseUnqt")))) (Var (UnQual (Ident "parseComma"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseList")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqtList")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "return")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "parseArgs"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyList (TyCon (UnQual (Ident "String"))))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseArgs")) Nothing (UnGuardedRhs (App (App (App (App (Var (UnQual (Ident "bracketSep"))) (Paren (App (Var (UnQual (Ident "character"))) (Lit (Char '('))))) (Var (UnQual (Ident "parseComma")))) (Paren (App (Var (UnQual (Ident "character"))) (Lit (Char ')'))))) (Var (UnQual (Ident "parseStyleName"))))) (BDecls []),DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "StyleName") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Dashed") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Dotted") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Solid") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Bold") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Invisible") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Filled") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Diagonals") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rounded") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DD") [UnBangedTy (TyCon (UnQual (Ident "String")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "StyleName"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Dashed")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "dashed")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Dotted")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "dotted")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Solid")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "solid")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Bold")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "bold")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Invisible")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "invis")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Filled")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "filled")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Diagonals")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "diagonals")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Rounded")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "rounded")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "DD")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "nm"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "DD")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "nm"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "sn")] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "sn"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "StyleName"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "checkDD")))) (Var (UnQual (Ident "parseStyleName"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "checkDD")))) (QVarOp (UnQual (Symbol "$"))) (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseStyleName")))) (QVarOp (UnQual (Ident "onFail"))) (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "f")) (InfixApp (Var (UnQual (Ident "orQuote"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "noneOf"))) (List [Var (UnQual (Ident "quoteChar")),Lit (Char '('),Lit (Char ')'),Lit (Char ','),Lit (Char ' '),Lit (Char ']')]))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "r")) (App (Var (UnQual (Ident "many"))) (Paren (InfixApp (Var (UnQual (Ident "orQuote"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "noneOf"))) (List [Var (UnQual (Ident "quoteChar")),Lit (Char '('),Lit (Char ')'),Lit (Char ','),Lit (Char ']')]))))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (InfixApp (Var (UnQual (Ident "f"))) (QConOp (Special Cons)) (Var (UnQual (Ident "r")))))])))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "checkDD"] (TyFun (TyCon (UnQual (Ident "String"))) (TyCon (UnQual (Ident "StyleName")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "checkDD") [PVar (Ident "str")] Nothing (UnGuardedRhs (Case (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "toLower")))) (Var (UnQual (Ident "str")))) [Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "dashed")) (UnGuardedAlt (Con (UnQual (Ident "Dashed")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "dotted")) (UnGuardedAlt (Con (UnQual (Ident "Dotted")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "solid")) (UnGuardedAlt (Con (UnQual (Ident "Solid")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "bold")) (UnGuardedAlt (Con (UnQual (Ident "Bold")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "invis")) (UnGuardedAlt (Con (UnQual (Ident "Invisible")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "filled")) (UnGuardedAlt (Con (UnQual (Ident "Filled")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "diagonals")) (UnGuardedAlt (Con (UnQual (Ident "Diagonals")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "rounded")) (UnGuardedAlt (Con (UnQual (Ident "Rounded")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) PWildCard (UnGuardedAlt (App (Con (UnQual (Ident "DD"))) (Var (UnQual (Ident "str"))))) (BDecls [])])) (BDecls [])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "parseStyleName"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyCon (UnQual (Ident "String")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseStyleName")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "f")) (InfixApp (Var (UnQual (Ident "orQuote"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "noneOf"))) (List [Var (UnQual (Ident "quoteChar")),Lit (Char '('),Lit (Char ')'),Lit (Char ','),Lit (Char ' ')]))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "r")) (App (Var (UnQual (Ident "many"))) (Paren (InfixApp (Var (UnQual (Ident "orQuote"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "noneOf"))) (List [Var (UnQual (Ident "quoteChar")),Lit (Char '('),Lit (Char ')'),Lit (Char ',')]))))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (InfixApp (Var (UnQual (Ident "f"))) (QConOp (Special Cons)) (Var (UnQual (Ident "r")))))])) (BDecls []),DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) NewType [] (Ident "PortPos") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PP") [UnBangedTy (TyCon (UnQual (Ident "CompassPoint")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "PortPos"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PP")) [PVar (Ident "cp")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "cp"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "PP")) [PVar (Ident "cp")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "cp"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "PortPos"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PP")))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "CompassPoint") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "North") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NorthEast") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "East") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SouthEast") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "South") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SouthWest") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "West") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NorthWest") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "CenterPoint") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoCP") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "CompassPoint"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NorthEast")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "ne")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NorthWest")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "nw")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "North")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "n")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "East")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "e")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SouthEast")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "se")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SouthWest")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "sw")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "South")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "s")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "West")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "w")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "CenterPoint")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "c")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoCP")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "_")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "CompassPoint"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NorthEast")))) (Lit (String "ne")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NorthWest")))) (Lit (String "nw")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "North")))) (Lit (String "n")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SouthEast")))) (Lit (String "se")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SouthWest")))) (Lit (String "sw")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "South")))) (Lit (String "s")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "East")))) (Lit (String "e")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "West")))) (Lit (String "w")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "CenterPoint")))) (Lit (String "c")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoCP")))) (Lit (String "_"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ViewPort") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (RecDecl (Ident "VP") [([Ident "wVal"],UnBangedTy (TyCon (UnQual (Ident "Double")))),([Ident "hVal"],UnBangedTy (TyCon (UnQual (Ident "Double")))),([Ident "zVal"],UnBangedTy (TyCon (UnQual (Ident "Double")))),([Ident "focus"],UnBangedTy (TyApp (TyCon (UnQual (Ident "Maybe"))) (TyCon (UnQual (Ident "FocusType")))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ViewPort"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PVar (Ident "vp")] Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "maybe"))) (Var (UnQual (Ident "vs")))) (Paren (InfixApp (App (Var (UnQual (Symbol "<>"))) (Paren (InfixApp (Var (UnQual (Ident "vs"))) (QVarOp (UnQual (Symbol "<>"))) (Var (UnQual (Ident "comma")))))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot")))))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "focus"))) (Var (UnQual (Ident "vp")))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "vs")) Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "hcat"))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "punctuate"))) (Var (UnQual (Ident "comma"))))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Paren (InfixApp (Var (UnQual (Ident "unqtDot"))) (QVarOp (UnQual (Symbol "."))) (App (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "$")))) (Var (UnQual (Ident "vp"))))))) (List [Var (UnQual (Ident "wVal")),Var (UnQual (Ident "hVal")),Var (UnQual (Ident "zVal"))])))) (BDecls [])])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "toDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot"))))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ViewPort"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "wv")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (Var (UnQual (Ident "parseComma"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "hv")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (Var (UnQual (Ident "parseComma"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "zv")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "mf")) (InfixApp (Var (UnQual (Ident "optional"))) (QVarOp (UnQual (Symbol "$"))) (InfixApp (Var (UnQual (Ident "parseComma"))) (QVarOp (UnQual (Symbol ">>"))) (Var (UnQual (Ident "parseUnqt"))))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (App (Con (UnQual (Ident "VP"))) (Var (UnQual (Ident "wv")))) (Var (UnQual (Ident "hv")))) (Var (UnQual (Ident "zv")))) (Var (UnQual (Ident "mf")))))])) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "FocusType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "XY") [UnBangedTy (TyCon (UnQual (Ident "Point")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NodeFocus") [UnBangedTy (TyCon (UnQual (Ident "String")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "FocusType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "XY")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "p"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "NodeFocus")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "nm"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "XY")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "p"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "NodeFocus")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "nm"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "FocusType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "XY")))) (Var (UnQual (Ident "parseUnqt")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NodeFocus")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "XY")))) (Var (UnQual (Ident "parse")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NodeFocus")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "VerticalPlacement") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "VTop") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "VCenter") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "VBottom") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "VerticalPlacement"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "VTop")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 't')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "VCenter")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'c')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "VBottom")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'b')))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "VerticalPlacement"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "VTop")))) (Lit (String "t")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "VCenter")))) (Lit (String "c")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "VBottom")))) (Lit (String "b"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ScaleType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "UniformScale") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoScale") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FillWidth") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FillHeight") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FillBoth") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ScaleType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "UniformScale")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoScale")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FillWidth")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "width")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FillHeight")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "height")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FillBoth")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "both")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ScaleType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "UniformScale")))) (Lit (String "true")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoScale")))) (Lit (String "false")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FillWidth")))) (Lit (String "width")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FillHeight")))) (Lit (String "height")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FillBoth")))) (Lit (String "both"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Justification") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "JLeft") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "JRight") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "JCenter") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Justification"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "JLeft")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'l')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "JRight")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'r')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "JCenter")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'c')))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Justification"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "JLeft")))) (Lit (String "l")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "JRight")))) (Lit (String "r")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "JCenter")))) (Lit (String "c"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Ratios") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "AspectRatio") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FillRatio") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "CompressRatio") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ExpandRatio") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "AutoRatio") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Ratios"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "AspectRatio")) [PVar (Ident "r")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "r"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FillRatio")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "fill")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "CompressRatio")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "compress")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "ExpandRatio")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "expand")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "AutoRatio")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "auto")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Ratios"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "AspectRatio")))) (Var (UnQual (Ident "parseUnqt"))),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FillRatio")))) (Lit (String "fill")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "CompressRatio")))) (Lit (String "compress")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "ExpandRatio")))) (Lit (String "expand")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "AutoRatio")))) (Lit (String "auto"))]))) (BDecls []))]]

AST 2:

Module (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (ModuleName "Data.GraphViz.Attributes") [] Nothing (Just [EThingAll (UnQual (Ident "Attribute")),EAbs (UnQual (Ident "Attributes")),EVar (UnQual (Ident "usedByGraphs")),EVar (UnQual (Ident "usedBySubGraphs")),EVar (UnQual (Ident "usedByClusters")),EVar (UnQual (Ident "usedByNodes")),EVar (UnQual (Ident "usedByEdges")),EAbs (UnQual (Ident "EscString")),EThingAll (UnQual (Ident "URL")),EThingAll (UnQual (Ident "ArrowType")),EThingAll (UnQual (Ident "AspectType")),EThingAll (UnQual (Ident "Rect")),EThingAll (UnQual (Ident "ClusterMode")),EThingAll (UnQual (Ident "DirType")),EThingAll (UnQual (Ident "DEConstraints")),EThingAll (UnQual (Ident "DPoint")),EThingAll (UnQual (Ident "ModeType")),EThingAll (UnQual (Ident "Model")),EThingAll (UnQual (Ident "Label")),EThingAll (UnQual (Ident "Point")),EThingAll (UnQual (Ident "Overlap")),EThingAll (UnQual (Ident "LayerRange")),EThingAll (UnQual (Ident "LayerID")),EThingAll (UnQual (Ident "LayerList")),EThingAll (UnQual (Ident "OutputMode")),EThingAll (UnQual (Ident "Pack")),EThingAll (UnQual (Ident "PackMode")),EThingAll (UnQual (Ident "Pos")),EThingAll (UnQual (Ident "EdgeType")),EThingAll (UnQual (Ident "PageDir")),EThingAll (UnQual (Ident "Spline")),EThingAll (UnQual (Ident "QuadType")),EThingAll (UnQual (Ident "Root")),EThingAll (UnQual (Ident "RankType")),EThingAll (UnQual (Ident "RankDir")),EThingAll (UnQual (Ident "Shape")),EThingAll (UnQual (Ident "SmoothType")),EThingAll (UnQual (Ident "StartType")),EThingAll (UnQual (Ident "STStyle")),EThingAll (UnQual (Ident "StyleItem")),EThingAll (UnQual (Ident "StyleName")),EThingAll (UnQual (Ident "PortPos")),EThingAll (UnQual (Ident "CompassPoint")),EThingAll (UnQual (Ident "ViewPort")),EThingAll (UnQual (Ident "FocusType")),EThingAll (UnQual (Ident "VerticalPlacement")),EThingAll (UnQual (Ident "ScaleType")),EThingAll (UnQual (Ident "Justification")),EThingAll (UnQual (Ident "Ratios")),EModuleContents (ModuleName "Data.GraphViz.Attributes.Colors"),EThingAll (UnQual (Ident "ArrowShape")),EThingAll (UnQual (Ident "ArrowModifier")),EThingAll (UnQual (Ident "ArrowFill")),EThingAll (UnQual (Ident "ArrowSide")),EVar (UnQual (Ident "box")),EVar (UnQual (Ident "crow")),EVar (UnQual (Ident "diamond")),EVar (UnQual (Ident "dotArrow")),EVar (UnQual (Ident "inv")),EVar (UnQual (Ident "noArrow")),EVar (UnQual (Ident "normal")),EVar (UnQual (Ident "tee")),EVar (UnQual (Ident "vee")),EVar (UnQual (Ident "oDot")),EVar (UnQual (Ident "invDot")),EVar (UnQual (Ident "invODot")),EVar (UnQual (Ident "oBox")),EVar (UnQual (Ident "oDiamond")),EVar (UnQual (Ident "eDiamond")),EVar (UnQual (Ident "openArr")),EVar (UnQual (Ident "halfOpen")),EVar (UnQual (Ident "emptyArr")),EVar (UnQual (Ident "invEmpty")),EVar (UnQual (Ident "noMods")),EVar (UnQual (Ident "openMod")),EVar (UnQual (Ident "defLayerSep")),EVar (UnQual (Ident "notLayerSep"))]) [ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.GraphViz.Attributes.Colors", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Nothing},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.GraphViz.Util", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Nothing},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.GraphViz.Parsing", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Nothing},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.GraphViz.Printing", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Nothing},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.Char", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Just (False,[IVar (Ident "toLower")])},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Data.Maybe", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Just (False,[IVar (Ident "isJust")])},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Control.Arrow", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Just (False,[IVar (Ident "first")])},ImportDecl {importLoc = SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}, importModule = ModuleName "Control.Monad", importQualified = False, importSrc = False, importPkg = Nothing, importAs = Nothing, importSpecs = Just (False,[IVar (Ident "liftM"),IVar (Ident "liftM2")])}] [DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Attribute") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Damping") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "K") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "URL") [UnBangedTy (TyCon (UnQual (Ident "URL")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ArrowHead") [UnBangedTy (TyCon (UnQual (Ident "ArrowType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ArrowSize") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ArrowTail") [UnBangedTy (TyCon (UnQual (Ident "ArrowType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Aspect") [UnBangedTy (TyCon (UnQual (Ident "AspectType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Bb") [UnBangedTy (TyCon (UnQual (Ident "Rect")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "BgColor") [UnBangedTy (TyCon (UnQual (Ident "Color")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Center") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Charset") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ClusterRank") [UnBangedTy (TyCon (UnQual (Ident "ClusterMode")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ColorScheme") [UnBangedTy (TyCon (UnQual (Ident "ColorScheme")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Color") [UnBangedTy (TyList (TyCon (UnQual (Ident "Color"))))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Comment") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Compound") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Concentrate") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Constraint") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Decorate") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DefaultDist") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Dimen") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Dim") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Dir") [UnBangedTy (TyCon (UnQual (Ident "DirType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DirEdgeConstraints") [UnBangedTy (TyCon (UnQual (Ident "DEConstraints")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Distortion") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DPI") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "EdgeURL") [UnBangedTy (TyCon (UnQual (Ident "URL")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "EdgeTarget") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "EdgeTooltip") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Epsilon") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ESep") [UnBangedTy (TyCon (UnQual (Ident "DPoint")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FillColor") [UnBangedTy (TyCon (UnQual (Ident "Color")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FixedSize") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FontColor") [UnBangedTy (TyCon (UnQual (Ident "Color")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FontName") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FontNames") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FontPath") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FontSize") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Group") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadURL") [UnBangedTy (TyCon (UnQual (Ident "URL")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadClip") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadLabel") [UnBangedTy (TyCon (UnQual (Ident "Label")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadPort") [UnBangedTy (TyCon (UnQual (Ident "PortPos")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadTarget") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HeadTooltip") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Height") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ID") [UnBangedTy (TyCon (UnQual (Ident "Label")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Image") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ImageScale") [UnBangedTy (TyCon (UnQual (Ident "ScaleType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelURL") [UnBangedTy (TyCon (UnQual (Ident "URL")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelAngle") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelDistance") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelFloat") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelFontColor") [UnBangedTy (TyCon (UnQual (Ident "Color")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelFontName") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelFontSize") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelJust") [UnBangedTy (TyCon (UnQual (Ident "Justification")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelLoc") [UnBangedTy (TyCon (UnQual (Ident "VerticalPlacement")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelTarget") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LabelTooltip") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Label") [UnBangedTy (TyCon (UnQual (Ident "Label")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Landscape") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LayerSep") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Layers") [UnBangedTy (TyCon (UnQual (Ident "LayerList")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Layer") [UnBangedTy (TyCon (UnQual (Ident "LayerRange")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Layout") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Len") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LevelsGap") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Levels") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LHead") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LPos") [UnBangedTy (TyCon (UnQual (Ident "Point")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LTail") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Margin") [UnBangedTy (TyCon (UnQual (Ident "DPoint")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MaxIter") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MCLimit") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MinDist") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MinLen") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Model") [UnBangedTy (TyCon (UnQual (Ident "Model")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Mode") [UnBangedTy (TyCon (UnQual (Ident "ModeType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Mosek") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NodeSep") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoJustify") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Normalize") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Nslimit1") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Nslimit") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Ordering") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Orientation") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "OutputOrder") [UnBangedTy (TyCon (UnQual (Ident "OutputMode")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "OverlapScaling") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Overlap") [UnBangedTy (TyCon (UnQual (Ident "Overlap")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackMode") [UnBangedTy (TyCon (UnQual (Ident "PackMode")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Pack") [UnBangedTy (TyCon (UnQual (Ident "Pack")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Pad") [UnBangedTy (TyCon (UnQual (Ident "DPoint")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PageDir") [UnBangedTy (TyCon (UnQual (Ident "PageDir")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Page") [UnBangedTy (TyCon (UnQual (Ident "Point")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PenColor") [UnBangedTy (TyCon (UnQual (Ident "Color")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PenWidth") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Peripheries") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Pin") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Pos") [UnBangedTy (TyCon (UnQual (Ident "Pos")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "QuadTree") [UnBangedTy (TyCon (UnQual (Ident "QuadType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Quantum") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RankDir") [UnBangedTy (TyCon (UnQual (Ident "RankDir")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RankSep") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rank") [UnBangedTy (TyCon (UnQual (Ident "RankType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Ratio") [UnBangedTy (TyCon (UnQual (Ident "Ratios")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rects") [UnBangedTy (TyCon (UnQual (Ident "Rect")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Regular") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ReMinCross") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RepulsiveForce") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Root") [UnBangedTy (TyCon (UnQual (Ident "Root")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rotate") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SameHead") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SameTail") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SamplePoints") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SearchSize") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Sep") [UnBangedTy (TyCon (UnQual (Ident "DPoint")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ShapeFile") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Shape") [UnBangedTy (TyCon (UnQual (Ident "Shape")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ShowBoxes") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Sides") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Size") [UnBangedTy (TyCon (UnQual (Ident "Point")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Skew") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Smoothing") [UnBangedTy (TyCon (UnQual (Ident "SmoothType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SortV") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Splines") [UnBangedTy (TyCon (UnQual (Ident "EdgeType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Start") [UnBangedTy (TyCon (UnQual (Ident "StartType")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "StyleSheet") [UnBangedTy (TyCon (UnQual (Ident "String")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Style") [UnBangedTy (TyList (TyCon (UnQual (Ident "StyleItem"))))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailURL") [UnBangedTy (TyCon (UnQual (Ident "URL")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailClip") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailLabel") [UnBangedTy (TyCon (UnQual (Ident "Label")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailPort") [UnBangedTy (TyCon (UnQual (Ident "PortPos")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailTarget") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TailTooltip") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Target") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Tooltip") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TrueColor") [UnBangedTy (TyCon (UnQual (Ident "Bool")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Vertices") [UnBangedTy (TyList (TyCon (UnQual (Ident "Point"))))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ViewPort") [UnBangedTy (TyCon (UnQual (Ident "ViewPort")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "VoroMargin") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Weight") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Width") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Z") [UnBangedTy (TyCon (UnQual (Ident "Double")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],TypeDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "Attributes") [] (TyList (TyCon (UnQual (Ident "Attribute")))),InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Attribute"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Damping")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "Damping"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "K")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "K"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "URL")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "URL"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ArrowHead")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "arrowhead"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ArrowSize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "arrowsize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ArrowTail")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "arrowtail"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Aspect")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "aspect"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Bb")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "bb"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "BgColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "bgcolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Center")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "center"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Charset")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "charset"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ClusterRank")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "clusterrank"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ColorScheme")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "colorscheme"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Color")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "color"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Comment")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "comment"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Compound")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "compound"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Concentrate")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "concentrate"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Constraint")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "constraint"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Decorate")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "decorate"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "DefaultDist")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "defaultdist"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Dimen")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "dimen"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Dim")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "dim"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Dir")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "dir"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "DirEdgeConstraints")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "diredgeconstraints"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Distortion")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "distortion"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "DPI")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "dpi"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "EdgeURL")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "edgeURL"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "EdgeTarget")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "edgetarget"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "EdgeTooltip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "edgetooltip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Epsilon")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "epsilon"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ESep")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "esep"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FillColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fillcolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FixedSize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fixedsize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FontColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fontcolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FontName")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fontname"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FontNames")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fontnames"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FontPath")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fontpath"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "FontSize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "fontsize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Group")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "group"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadURL")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headURL"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadClip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headclip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadLabel")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headlabel"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadPort")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headport"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadTarget")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headtarget"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "HeadTooltip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "headtooltip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Height")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "height"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ID")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "id"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Image")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "image"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ImageScale")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "imagescale"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelURL")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelURL"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelAngle")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelangle"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelDistance")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labeldistance"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelFloat")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelfloat"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelFontColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelfontcolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelFontName")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelfontname"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelFontSize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelfontsize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelJust")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labeljust"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelLoc")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labelloc"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelTarget")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labeltarget"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LabelTooltip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "labeltooltip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Label")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "label"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Landscape")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "landscape"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LayerSep")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "layersep"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Layers")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "layers"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Layer")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "layer"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Layout")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "layout"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Len")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "len"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LevelsGap")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "levelsgap"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Levels")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "levels"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LHead")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "lhead"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LPos")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "lp"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LTail")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "ltail"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Margin")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "margin"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "MaxIter")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "maxiter"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "MCLimit")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "mclimit"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "MinDist")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "mindist"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "MinLen")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "minlen"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Model")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "model"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Mode")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "mode"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Mosek")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "mosek"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "NodeSep")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "nodesep"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "NoJustify")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "nojustify"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Normalize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "normalize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Nslimit1")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "nslimit1"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Nslimit")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "nslimit"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Ordering")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "ordering"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Orientation")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "orientation"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "OutputOrder")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "outputorder"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "OverlapScaling")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "overlap_scaling"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Overlap")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "overlap"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PackMode")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "packmode"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Pack")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pack"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Pad")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pad"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PageDir")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pagedir"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Page")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "page"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PenColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pencolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PenWidth")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "penwidth"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Peripheries")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "peripheries"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Pin")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pin"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Pos")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "pos"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "QuadTree")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "quadtree"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Quantum")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "quantum"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "RankDir")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "rankdir"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "RankSep")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "ranksep"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Rank")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "rank"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Ratio")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "ratio"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Rects")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "rects"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Regular")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "regular"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ReMinCross")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "remincross"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "RepulsiveForce")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "repulsiveforce"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Root")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "root"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Rotate")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "rotate"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SameHead")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "samehead"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SameTail")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "sametail"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SamplePoints")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "samplepoints"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SearchSize")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "searchsize"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Sep")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "sep"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ShapeFile")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "shapefile"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Shape")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "shape"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ShowBoxes")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "showboxes"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Sides")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "sides"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Size")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "size"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Skew")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "skew"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Smoothing")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "smoothing"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SortV")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "sortv"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Splines")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "splines"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Start")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "start"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "StyleSheet")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "stylesheet"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Style")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "style"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailURL")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tailURL"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailClip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tailclip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailLabel")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "taillabel"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailPort")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tailport"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailTarget")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tailtarget"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TailTooltip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tailtooltip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Target")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "target"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Tooltip")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "tooltip"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "TrueColor")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "truecolor"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Vertices")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "vertices"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ViewPort")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "viewport"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "VoroMargin")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "voro_margin"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Weight")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "weight"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Width")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "width"))) (Var (UnQual (Ident "v"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Z")) [PVar (Ident "v")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "printField"))) (Lit (String "z"))) (Var (UnQual (Ident "v"))))) (BDecls [])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "listToDot")) Nothing (UnGuardedRhs (Var (UnQual (Ident "unqtListToDot")))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Attribute"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Damping")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "Damping"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "K")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "K"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "URL")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "URL"),Lit (String "href")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ArrowHead")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "arrowhead"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ArrowSize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "arrowsize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ArrowTail")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "arrowtail"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Aspect")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "aspect"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Bb")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "bb"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "BgColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "bgcolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Center")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "center"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Charset")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "charset"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ClusterRank")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "clusterrank"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ColorScheme")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "colorscheme"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Color")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "color"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Comment")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "comment"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Compound")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "compound"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Concentrate")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "concentrate"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Constraint")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "constraint"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Decorate")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "decorate"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "DefaultDist")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "defaultdist"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Dimen")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "dimen"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Dim")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "dim"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Dir")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "dir"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "DirEdgeConstraints")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "EdgeConstraints")))) (Lit (String "diredgeconstraints"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Distortion")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "distortion"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "DPI")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "dpi"),Lit (String "resolution")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "EdgeURL")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "edgeURL"),Lit (String "edgehref")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "EdgeTarget")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "edgetarget"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "EdgeTooltip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "edgetooltip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Epsilon")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "epsilon"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ESep")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "esep"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FillColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fillcolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FixedSize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "fixedsize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FontColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fontcolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FontName")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fontname"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FontNames")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fontnames"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FontPath")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fontpath"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "FontSize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "fontsize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Group")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "group"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadURL")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "headURL"),Lit (String "headhref")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadClip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "headclip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadLabel")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "headlabel"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadPort")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "headport"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadTarget")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "headtarget"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "HeadTooltip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "headtooltip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Height")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "height"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ID")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "id"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Image")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "image"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ImageScale")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "UniformScale")))) (Lit (String "imagescale"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelURL")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "labelURL"),Lit (String "labelhref")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelAngle")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labelangle"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelDistance")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labeldistance"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelFloat")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "labelfloat"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelFontColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labelfontcolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelFontName")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labelfontname"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelFontSize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labelfontsize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelJust")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labeljust"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelLoc")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labelloc"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelTarget")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labeltarget"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LabelTooltip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "labeltooltip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Label")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "label"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Landscape")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "landscape"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LayerSep")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "layersep"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Layers")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "layers"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Layer")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "layer"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Layout")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "layout"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Len")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "len"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LevelsGap")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "levelsgap"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Levels")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "levels"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LHead")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "lhead"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LPos")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "lp"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LTail")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "ltail"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Margin")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "margin"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "MaxIter")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "maxiter"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "MCLimit")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "mclimit"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "MinDist")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "mindist"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "MinLen")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "minlen"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Model")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "model"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Mode")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "mode"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Mosek")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "mosek"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NodeSep")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "nodesep"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NoJustify")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "nojustify"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Normalize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "normalize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Nslimit1")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "nslimit1"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Nslimit")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "nslimit"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Ordering")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "ordering"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Orientation")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "orientation"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "OutputOrder")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "outputorder"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "OverlapScaling")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "overlap_scaling"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Overlap")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "KeepOverlaps")))) (Lit (String "overlap"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PackMode")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "packmode"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Pack")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "DoPack")))) (Lit (String "pack"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Pad")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "pad"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PageDir")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "pagedir"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Page")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "page"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PenColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "pencolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PenWidth")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "penwidth"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Peripheries")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "peripheries"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Pin")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "pin"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Pos")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "pos"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "QuadTree")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "NormalQT")))) (Lit (String "quadtree"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Quantum")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "quantum"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "RankDir")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "rankdir"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "RankSep")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "ranksep"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Rank")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "rank"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Ratio")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "ratio"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Rects")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "rects"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Regular")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "regular"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ReMinCross")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "remincross"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "RepulsiveForce")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "repulsiveforce"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Root")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "IsCentral")))) (Lit (String "root"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Rotate")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "rotate"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "SameHead")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "samehead"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "SameTail")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "sametail"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "SamplePoints")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "samplepoints"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "SearchSize")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "searchsize"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Sep")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "sep"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ShapeFile")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "shapefile"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Shape")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "shape"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ShowBoxes")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "showboxes"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Sides")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "sides"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Size")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "size"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Skew")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "skew"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Smoothing")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "smoothing"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "SortV")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "sortv"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Splines")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "parseFieldDef"))) (Con (UnQual (Ident "SplineEdges")))) (Lit (String "splines"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Start")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "start"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "StyleSheet")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "stylesheet"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Style")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "style"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailURL")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFields"))) (List [Lit (String "tailURL"),Lit (String "tailhref")])),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailClip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "tailclip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailLabel")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "taillabel"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailPort")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "tailport"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailTarget")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "tailtarget"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TailTooltip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "tailtooltip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Target")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "target"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Tooltip")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "tooltip"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "TrueColor")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseFieldBool"))) (Lit (String "truecolor"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Vertices")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "vertices"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "ViewPort")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "viewport"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "VoroMargin")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "voro_margin"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Weight")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "weight"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Width")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "width"))),InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "Z")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "parseField"))) (Lit (String "z")))]))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (Var (UnQual (Ident "parseUnqt")))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseList")) Nothing (UnGuardedRhs (Var (UnQual (Ident "parseUnqtList")))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "usedByGraphs"] (TyFun (TyCon (UnQual (Ident "Attribute"))) (TyCon (UnQual (Ident "Bool")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Damping")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "K")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "URL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Aspect")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Bb")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "BgColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Center")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Charset")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ClusterRank")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ColorScheme")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Comment")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Compound")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Concentrate")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "DefaultDist")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Dimen")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Dim")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "DirEdgeConstraints")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "DPI")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Epsilon")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ESep")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "FontColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "FontName")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "FontNames")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "FontPath")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "FontSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ID")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "LabelJust")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "LabelLoc")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Label")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Landscape")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "LayerSep")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Layers")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Layout")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "LevelsGap")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Levels")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "LPos")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Margin")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "MaxIter")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "MCLimit")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "MinDist")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Model")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Mode")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Mosek")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "NodeSep")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "NoJustify")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Normalize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Nslimit1")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Nslimit")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Ordering")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "OutputOrder")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "OverlapScaling")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Overlap")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "PackMode")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Pack")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Pad")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "PageDir")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Page")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "QuadTree")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Quantum")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "RankDir")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "RankSep")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Ratio")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ReMinCross")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "RepulsiveForce")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Root")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Rotate")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "SearchSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Sep")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ShowBoxes")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Size")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Smoothing")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "SortV")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Splines")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Start")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "StyleSheet")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "Target")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "TrueColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "ViewPort")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PRec (UnQual (Ident "VoroMargin")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByGraphs") [PWildCard] Nothing (UnGuardedRhs (Con (UnQual (Ident "False")))) (BDecls [])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "usedByClusters"] (TyFun (TyCon (UnQual (Ident "Attribute"))) (TyCon (UnQual (Ident "Bool")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "K")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "URL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "BgColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "ColorScheme")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Color")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "FillColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "FontColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "FontName")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "FontSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "LabelJust")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "LabelLoc")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Label")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "LPos")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "NoJustify")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "PenColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "PenWidth")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Peripheries")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Rank")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "SortV")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Style")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Target")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PRec (UnQual (Ident "Tooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByClusters") [PWildCard] Nothing (UnGuardedRhs (Con (UnQual (Ident "False")))) (BDecls [])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "usedBySubGraphs"] (TyFun (TyCon (UnQual (Ident "Attribute"))) (TyCon (UnQual (Ident "Bool")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedBySubGraphs") [PRec (UnQual (Ident "Rank")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedBySubGraphs") [PWildCard] Nothing (UnGuardedRhs (Con (UnQual (Ident "False")))) (BDecls [])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "usedByNodes"] (TyFun (TyCon (UnQual (Ident "Attribute"))) (TyCon (UnQual (Ident "Bool")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "URL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "ColorScheme")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Color")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Comment")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Distortion")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "FillColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "FixedSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "FontColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "FontName")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "FontSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Group")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Height")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "ID")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Image")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "ImageScale")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "LabelLoc")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Label")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Layer")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Margin")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "NoJustify")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Orientation")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "PenWidth")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Peripheries")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Pin")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Pos")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Rects")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Regular")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Root")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "SamplePoints")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "ShapeFile")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Shape")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "ShowBoxes")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Sides")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Skew")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "SortV")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Style")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Target")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Tooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Vertices")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Width")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PRec (UnQual (Ident "Z")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByNodes") [PWildCard] Nothing (UnGuardedRhs (Con (UnQual (Ident "False")))) (BDecls [])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "usedByEdges"] (TyFun (TyCon (UnQual (Ident "Attribute"))) (TyCon (UnQual (Ident "Bool")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "URL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ArrowHead")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ArrowSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ArrowTail")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ColorScheme")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Color")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Comment")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Constraint")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Decorate")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Dir")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "EdgeURL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "EdgeTarget")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "EdgeTooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "FontColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "FontName")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "FontSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadURL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadClip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadLabel")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadPort")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadTarget")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "HeadTooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ID")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelURL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelAngle")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelDistance")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelFloat")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelFontColor")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelFontName")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelFontSize")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelTarget")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LabelTooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Label")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Layer")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Len")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LHead")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LPos")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "LTail")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "MinLen")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "NoJustify")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "PenWidth")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Pos")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "SameHead")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "SameTail")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "ShowBoxes")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Style")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailURL")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailClip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailLabel")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailPort")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailTarget")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "TailTooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Target")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Tooltip")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PRec (UnQual (Ident "Weight")) []] Nothing (UnGuardedRhs (Con (UnQual (Ident "True")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "usedByEdges") [PWildCard] Nothing (UnGuardedRhs (Con (UnQual (Ident "False")))) (BDecls [])],TypeDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "EscString") [] (TyCon (UnQual (Ident "String"))),DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) NewType [] (Ident "URL") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (RecDecl (Ident "UStr") [([Ident "urlString"],UnBangedTy (TyCon (UnQual (Ident "EscString"))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "URL"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "unqtDot")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "wrap"))) (Paren (App (Var (UnQual (Ident "char"))) (Lit (Char '<'))))) (Paren (App (Var (UnQual (Ident "char"))) (Lit (Char '>'))))) (QVarOp (UnQual (Symbol "."))) (InfixApp (Var (UnQual (Ident "text"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "urlString")))))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "URL"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "UStr")))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (Var (UnQual (Ident "bracket"))) (Paren (App (Var (UnQual (Ident "character"))) (Var (UnQual (Ident "open")))))) (Paren (App (Var (UnQual (Ident "character"))) (Var (UnQual (Ident "close")))))) (Paren (InfixApp (Var (UnQual (Ident "many1"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "satisfy"))) (Paren (App (Var (UnQual (Symbol "/="))) (Var (UnQual (Ident "close"))))))))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "open")) Nothing (UnGuardedRhs (Lit (Char '<'))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "close")) Nothing (UnGuardedRhs (Lit (Char '>'))) (BDecls [])])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (Var (UnQual (Ident "parseUnqt")))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) NewType [] (Ident "ArrowType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "AType") [UnBangedTy (TyList (TyTuple Boxed [TyCon (UnQual (Ident "ArrowModifier")),TyCon (UnQual (Ident "ArrowShape"))]))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "box",Ident "crow",Ident "diamond",Ident "dotArrow",Ident "inv",Ident "noArrow",Ident "normal",Ident "tee",Ident "vee"] (TyCon (UnQual (Ident "ArrowType"))),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "oDot",Ident "invDot",Ident "invODot",Ident "oBox",Ident "oDiamond"] (TyCon (UnQual (Ident "ArrowType"))),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "eDiamond",Ident "openArr",Ident "halfOpen",Ident "emptyArr",Ident "invEmpty"] (TyCon (UnQual (Ident "ArrowType"))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "normal")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Normal"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "inv")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Inv"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "dotArrow")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "DotArrow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "invDot")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Inv"))],Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "DotArrow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "oDot")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [App (App (Con (UnQual (Ident "ArrMod"))) (Con (UnQual (Ident "OpenArrow")))) (Con (UnQual (Ident "BothSides"))),Con (UnQual (Ident "DotArrow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "invODot")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Inv"))],Tuple Boxed [Var (UnQual (Ident "openMod")),Con (UnQual (Ident "DotArrow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "noArrow")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "NoArrow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "tee")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Tee"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "emptyArr")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "openMod")),Con (UnQual (Ident "Normal"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "invEmpty")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Inv"))],Tuple Boxed [Var (UnQual (Ident "openMod")),Con (UnQual (Ident "Normal"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "diamond")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Diamond"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "oDiamond")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "openMod")),Con (UnQual (Ident "Diamond"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "eDiamond")) Nothing (UnGuardedRhs (Var (UnQual (Ident "oDiamond")))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "crow")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Crow"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "box")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Box"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "oBox")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "openMod")),Con (UnQual (Ident "Box"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "openArr")) Nothing (UnGuardedRhs (Var (UnQual (Ident "vee")))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "halfOpen")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [App (App (Con (UnQual (Ident "ArrMod"))) (Con (UnQual (Ident "FilledArrow")))) (Con (UnQual (Ident "LeftSide"))),Con (UnQual (Ident "Vee"))]]))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "vee")) Nothing (UnGuardedRhs (App (Con (UnQual (Ident "AType"))) (List [Tuple Boxed [Var (UnQual (Ident "noMods")),Con (UnQual (Ident "Vee"))]]))) (BDecls []),InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ArrowType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "AType")) [PVar (Ident "mas")])] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "hcat"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "appMod")))) (Var (UnQual (Ident "mas")))))) (BDecls [FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "appMod") [PTuple Boxed [PVar (Ident "m"),PVar (Ident "a")]] Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "m")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "a")))))) (BDecls [])]])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ArrowType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (Paren (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "mas")) (InfixApp (Var (UnQual (Ident "many1"))) (QVarOp (UnQual (Symbol "$"))) (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "m")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "a")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (App (Var (UnQual (Ident "return"))) (Tuple Boxed [Var (UnQual (Ident "m")),Var (UnQual (Ident "a"))]))])),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (Con (UnQual (Ident "AType"))) (Var (UnQual (Ident "mas")))))])) (QVarOp (UnQual (Ident "onFail"))) (Var (UnQual (Ident "specialArrowParse"))))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "specialArrowParse"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyCon (UnQual (Ident "ArrowType")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "specialArrowParse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Var (UnQual (Ident "eDiamond")))) (Lit (String "ediamond")),App (App (Var (UnQual (Ident "stringRep"))) (Var (UnQual (Ident "openArr")))) (Lit (String "open")),App (App (Var (UnQual (Ident "stringRep"))) (Var (UnQual (Ident "halfOpen")))) (Lit (String "halfopen")),App (App (Var (UnQual (Ident "stringRep"))) (Var (UnQual (Ident "emptyArr")))) (Lit (String "empty")),App (App (Var (UnQual (Ident "stringRep"))) (Var (UnQual (Ident "invEmpty")))) (Lit (String "invempty"))]))) (BDecls []),DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ArrowShape") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Box") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Crow") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Diamond") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DotArrow") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Inv") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoArrow") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Normal") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Tee") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Vee") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ArrowShape"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Box")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "box")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Crow")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "crow")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Diamond")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "diamond")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DotArrow")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "dot")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Inv")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "inv")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoArrow")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "none")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Normal")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "normal")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Tee")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "tee")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Vee")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "vee")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ArrowShape"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Box")))) (Lit (String "box")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Crow")))) (Lit (String "crow")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Diamond")))) (Lit (String "diamond")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "DotArrow")))) (Lit (String "dot")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Inv")))) (Lit (String "inv")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoArrow")))) (Lit (String "none")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Normal")))) (Lit (String "normal")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Tee")))) (Lit (String "tee")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Vee")))) (Lit (String "vee"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ArrowModifier") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (RecDecl (Ident "ArrMod") [([Ident "arrowFill"],UnBangedTy (TyCon (UnQual (Ident "ArrowFill")))),([Ident "arrowSide"],UnBangedTy (TyCon (UnQual (Ident "ArrowSide"))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "noMods"] (TyCon (UnQual (Ident "ArrowModifier"))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "noMods")) Nothing (UnGuardedRhs (App (App (Con (UnQual (Ident "ArrMod"))) (Con (UnQual (Ident "FilledArrow")))) (Con (UnQual (Ident "BothSides"))))) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "openMod"] (TyCon (UnQual (Ident "ArrowModifier"))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "openMod")) Nothing (UnGuardedRhs (App (App (Con (UnQual (Ident "ArrMod"))) (Con (UnQual (Ident "OpenArrow")))) (Con (UnQual (Ident "BothSides"))))) (BDecls []),InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ArrowModifier"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "ArrMod")) [PVar (Ident "f"),PVar (Ident "s")])] Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "f")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ArrowModifier"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "f")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "s")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Con (UnQual (Ident "ArrMod"))) (Var (UnQual (Ident "f")))) (Var (UnQual (Ident "s")))))])) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ArrowFill") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "OpenArrow") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FilledArrow") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ArrowFill"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "OpenArrow")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'o')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FilledArrow")) []] Nothing (UnGuardedRhs (Var (UnQual (Ident "empty")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ArrowFill"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "liftM"))) (Paren (InfixApp (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "FilledArrow")))) (Con (UnQual (Ident "OpenArrow")))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "isJust")))))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "optional"))) (Paren (App (Var (UnQual (Ident "character"))) (Lit (Char 'o'))))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (Var (UnQual (Ident "parseUnqt")))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ArrowSide") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LeftSide") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RightSide") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "BothSides") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ArrowSide"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "LeftSide")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'l')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "RightSide")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'r')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "BothSides")) []] Nothing (UnGuardedRhs (Var (UnQual (Ident "empty")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ArrowSide"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "getSideType")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "optional"))) (Paren (InfixApp (Var (UnQual (Ident "oneOf"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "character")))) (List [Lit (Char 'l'),Lit (Char 'r')]))))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "getSideType")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "maybe"))) (Con (UnQual (Ident "BothSides")))) (Paren (InfixApp (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "RightSide")))) (Con (UnQual (Ident "LeftSide")))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Symbol "=="))) (Lit (Char 'l'))))))) (BDecls [])])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (Var (UnQual (Ident "parseUnqt")))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "AspectType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RatioOnly") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RatioPassCount") [UnBangedTy (TyCon (UnQual (Ident "Double"))),UnBangedTy (TyCon (UnQual (Ident "Int")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "AspectType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "RatioOnly")) [PVar (Ident "r")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "r"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "RatioPassCount")) [PVar (Ident "r"),PVar (Ident "p")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "commaDel"))) (Var (UnQual (Ident "r")))) (Var (UnQual (Ident "p"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PAsPat (Ident "at") (PRec (UnQual (Ident "RatioOnly")) [])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "at"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PAsPat (Ident "at") (PRec (UnQual (Ident "RatioPassCount")) [])] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "at")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "AspectType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "RatioPassCount")))))) (Var (UnQual (Ident "commaSepUnqt")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "RatioOnly")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Paren (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "RatioPassCount")))))) (Var (UnQual (Ident "commaSepUnqt")))))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "RatioOnly")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Rect") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rect") [UnBangedTy (TyCon (UnQual (Ident "Point"))),UnBangedTy (TyCon (UnQual (Ident "Point")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Rect"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Rect")) [PVar (Ident "p1"),PVar (Ident "p2")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "commaDel"))) (Var (UnQual (Ident "p1")))) (Var (UnQual (Ident "p2"))))) (BDecls [])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "toDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot"))))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Rect"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "Rect")))))) (Var (UnQual (Ident "commaSepUnqt"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ClusterMode") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Local") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Global") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoCluster") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ClusterMode"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Local")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "local")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Global")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "global")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoCluster")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "none")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ClusterMode"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Local")))) (Lit (String "local")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Global")))) (Lit (String "global")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoCluster")))) (Lit (String "none"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "DirType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Forward") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Back") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Both") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoDir") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "DirType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Forward")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "forward")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Back")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "back")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Both")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "both")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoDir")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Lit (String "none")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "DirType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Forward")))) (Lit (String "forward")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Back")))) (Lit (String "back")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Both")))) (Lit (String "both")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoDir")))) (Lit (String "none"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "DEConstraints") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "EdgeConstraints") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoConstraints") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "HierConstraints") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "DEConstraints"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "EdgeConstraints")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoConstraints")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "HierConstraints")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "hier")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "DEConstraints"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "NoConstraints")))) (Con (UnQual (Ident "EdgeConstraints")))))) (Var (UnQual (Ident "parse")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "HierConstraints")))) (Lit (String "hier"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "DPoint") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DVal") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PVal") [UnBangedTy (TyCon (UnQual (Ident "Point")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "DPoint"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "DVal")) [PVar (Ident "d")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "d"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PVal")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "p"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "DVal")) [PVar (Ident "d")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "d"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "PVal")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "p"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "DPoint"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PVal")))) (Var (UnQual (Ident "parseUnqt")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "DVal")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PVal")))) (Var (UnQual (Ident "parse")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "DVal")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ModeType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Major") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "KK") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Hier") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "IpSep") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ModeType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Major")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "major")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "KK")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "KK")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Hier")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "hier")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "IpSep")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "ipsep")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ModeType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Major")))) (Lit (String "major")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "KK")))) (Lit (String "KK")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Hier")))) (Lit (String "hier")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "IpSep")))) (Lit (String "ipsep"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Model") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ShortPath") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SubSet") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Circuit") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Model"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "ShortPath")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "shortpath")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SubSet")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "subset")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Circuit")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "circuit")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Model"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "ShortPath")))) (Lit (String "shortpath")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SubSet")))) (Lit (String "subset")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Circuit")))) (Lit (String "circuit"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Label") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "StrLabel") [UnBangedTy (TyCon (UnQual (Ident "EscString")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "URLLabel") [UnBangedTy (TyCon (UnQual (Ident "URL")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Label"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "StrLabel")) [PVar (Ident "s")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "URLLabel")) [PVar (Ident "u")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "u"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "StrLabel")) [PVar (Ident "s")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "s"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "URLLabel")) [PVar (Ident "u")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "u"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Label"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "StrLabel")))) (Var (UnQual (Ident "parseUnqt")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "URLLabel")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "StrLabel")))) (Var (UnQual (Ident "parse")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "URLLabel")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Point") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Point") [UnBangedTy (TyCon (UnQual (Ident "Int"))),UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PointD") [UnBangedTy (TyCon (UnQual (Ident "Double"))),UnBangedTy (TyCon (UnQual (Ident "Double")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Point"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Point")) [PVar (Ident "x"),PVar (Ident "y")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "commaDel"))) (Var (UnQual (Ident "x")))) (Var (UnQual (Ident "y"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PointD")) [PVar (Ident "x"),PVar (Ident "y")])] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "commaDel"))) (Var (UnQual (Ident "x")))) (Var (UnQual (Ident "y"))))) (BDecls [])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "toDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "unqtListToDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "hsep"))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "unqtDot")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "listToDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtListToDot"))))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Point"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "intDblPoint"))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "Point")))))) (Var (UnQual (Ident "commaSepUnqt"))))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "PointD")))))) (Var (UnQual (Ident "commaSepUnqt")))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "intDblPoint")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "liftM"))) (Paren (InfixApp (App (Var (UnQual (Ident "uncurry"))) (Con (UnQual (Ident "PointD")))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "first"))) (Var (UnQual (Ident "fI"))))))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "commaSep'"))) (Var (UnQual (Ident "parseUnqt")))) (Var (UnQual (Ident "parseStrictFloat")))))) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "fI"] (TyFun (TyCon (UnQual (Ident "Int"))) (TyCon (UnQual (Ident "Double")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "fI")) Nothing (UnGuardedRhs (Var (UnQual (Ident "fromIntegral")))) (BDecls [])])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqtList")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "sepBy1"))) (Var (UnQual (Ident "parseUnqt")))) (Var (UnQual (Ident "whitespace"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Overlap") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "KeepOverlaps") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RemoveOverlaps") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ScaleOverlaps") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ScaleXYOverlaps") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PrismOverlap") [UnBangedTy (TyParen (TyApp (TyCon (UnQual (Ident "Maybe"))) (TyCon (UnQual (Ident "Int")))))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "CompressOverlap") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "VpscOverlap") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "IpsepOverlap") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Overlap"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "KeepOverlaps")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "RemoveOverlaps")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "ScaleOverlaps")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "scale")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "ScaleXYOverlaps")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "scalexy")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PrismOverlap")) [PVar (Ident "i")])] Nothing (UnGuardedRhs (InfixApp (App (App (App (Var (UnQual (Ident "maybe"))) (Var (UnQual (Ident "id")))) (Paren (InfixApp (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "<>")))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot")))))) (Var (UnQual (Ident "i")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "text"))) (Lit (String "prism"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "CompressOverlap")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "compress")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "VpscOverlap")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "vpsc")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "IpsepOverlap")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "ipsep")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Overlap"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "KeepOverlaps")))) (Lit (String "true")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "RemoveOverlaps")))) (Lit (String "false")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "ScaleXYOverlaps")))) (Lit (String "scalexy")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "ScaleOverlaps")))) (Lit (String "scale")),InfixApp (App (Var (UnQual (Ident "string"))) (Lit (String "prism"))) (QVarOp (UnQual (Symbol ">>"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PrismOverlap")))) (Paren (App (Var (UnQual (Ident "optional"))) (Var (UnQual (Ident "parse")))))),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "CompressOverlap")))) (Lit (String "compress")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "VpscOverlap")))) (Lit (String "vpsc")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "IpsepOverlap")))) (Lit (String "ipsep"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "LayerRange") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LRID") [UnBangedTy (TyCon (UnQual (Ident "LayerID")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LRS") [UnBangedTy (TyCon (UnQual (Ident "LayerID"))),UnBangedTy (TyCon (UnQual (Ident "String"))),UnBangedTy (TyCon (UnQual (Ident "LayerID")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "LayerRange"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LRID")) [PVar (Ident "lid")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "lid"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LRS")) [PVar (Ident "id1"),PVar (Ident "s"),PVar (Ident "id2")])] Nothing (UnGuardedRhs (InfixApp (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "id1")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s"))))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "id2")))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "LRID")) [PVar (Ident "lid")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "lid"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "lrs")] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "lrs")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "LayerRange"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (Paren (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "id1")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "s")) (Var (UnQual (Ident "parseLayerSep"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "id2")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (Con (UnQual (Ident "LRS"))) (Var (UnQual (Ident "id1")))) (Var (UnQual (Ident "s")))) (Var (UnQual (Ident "id2")))))])) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LRID")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Paren (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "id1")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "s")) (Var (UnQual (Ident "parseLayerSep"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "id2")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (Con (UnQual (Ident "LRS"))) (Var (UnQual (Ident "id1")))) (Var (UnQual (Ident "s")))) (Var (UnQual (Ident "id2")))))]))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LRID")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "parseLayerSep"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyCon (UnQual (Ident "String")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseLayerSep")) Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "many1"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "oneOf")))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "character")))) (Var (UnQual (Ident "defLayerSep")))))) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "defLayerSep"] (TyList (TyCon (UnQual (Ident "Char")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "defLayerSep")) Nothing (UnGuardedRhs (List [Lit (Char ' '),Lit (Char ':'),Lit (Char '\t')])) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "parseLayerName"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyCon (UnQual (Ident "String")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseLayerName")) Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "many1"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "orQuote")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "satisfy"))) (Paren (App (App (App (Var (UnQual (Ident "liftM2"))) (Var (UnQual (Symbol "&&")))) (Var (UnQual (Ident "notLayerSep")))) (Paren (App (Var (UnQual (Symbol "/="))) (Var (UnQual (Ident "quoteChar")))))))))) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "parseLayerName'"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyCon (UnQual (Ident "String")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseLayerName'")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "stringBlock"))) (QVarOp (UnQual (Ident "onFail"))) (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseLayerName")))))) (BDecls []),TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "notLayerSep"] (TyFun (TyCon (UnQual (Ident "Char"))) (TyCon (UnQual (Ident "Bool")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "notLayerSep")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Ident "notElem")))) (Var (UnQual (Ident "defLayerSep"))))) (BDecls []),DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "LayerID") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "AllLayers") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LRInt") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LRName") [UnBangedTy (TyCon (UnQual (Ident "String")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "LayerID"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "AllLayers")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "all")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LRInt")) [PVar (Ident "n")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "n"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LRName")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "nm"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "LRName")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "nm"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "li")] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "li"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "LayerID"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "checkLayerName")))) (Var (UnQual (Ident "parseLayerName"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "checkLayerName")))) (Var (UnQual (Ident "parseLayerName'"))),App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "LRInt")))) (Var (UnQual (Ident "parse")))]))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "checkLayerName"] (TyFun (TyCon (UnQual (Ident "String"))) (TyCon (UnQual (Ident "LayerID")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "checkLayerName") [PVar (Ident "str")] Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "maybe"))) (Var (UnQual (Ident "checkAll")))) (Con (UnQual (Ident "LRInt")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "stringToInt"))) (Var (UnQual (Ident "str")))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "checkAll")) Nothing (UnGuardedRhs (If (InfixApp (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "toLower")))) (Var (UnQual (Ident "str")))) (QVarOp (UnQual (Symbol "=="))) (Lit (String "all"))) (Con (UnQual (Ident "AllLayers"))) (App (Con (UnQual (Ident "LRName"))) (Var (UnQual (Ident "str")))))) (BDecls [])])],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "LayerList") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LL") [UnBangedTy (TyCon (UnQual (Ident "String"))),UnBangedTy (TyList (TyTuple Boxed [TyCon (UnQual (Ident "String")),TyCon (UnQual (Ident "String"))]))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "LayerList"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "LL")) [PVar (Ident "l1"),PVar (Ident "ols")])] Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "l1")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "hcat"))) (Paren (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "subLL")))) (Var (UnQual (Ident "ols")))))))) (BDecls [FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "subLL") [PTuple Boxed [PVar (Ident "s"),PVar (Ident "l")]] Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "l")))))) (BDecls [])]])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "LL")) [PVar (Ident "l1"),PList []])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "l1"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "ll")] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "ll")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "LayerList"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "l1")) (Var (UnQual (Ident "parseLayerName"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "ols")) (InfixApp (Var (UnQual (Ident "many"))) (QVarOp (UnQual (Symbol "$"))) (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "s")) (Var (UnQual (Ident "parseLayerSep"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "lnm")) (Var (UnQual (Ident "parseLayerName"))),Qualifier (App (Var (UnQual (Ident "return"))) (Tuple Boxed [Var (UnQual (Ident "s")),Var (UnQual (Ident "lnm"))]))])),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Con (UnQual (Ident "LL"))) (Var (UnQual (Ident "l1")))) (Var (UnQual (Ident "ols")))))])) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "flip"))) (Con (UnQual (Ident "LL")))) (List [])))) (Paren (InfixApp (Var (UnQual (Ident "parseLayerName'"))) (QVarOp (UnQual (Ident "onFail"))) (Var (UnQual (Ident "numString")))))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "OutputMode") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "BreadthFirst") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NodesFirst") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "EdgesFirst") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "OutputMode"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "BreadthFirst")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "breadthfirst")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NodesFirst")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "nodesfirst")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "EdgesFirst")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "edgesfirst")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "OutputMode"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "BreadthFirst")))) (Lit (String "breadthfirst")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NodesFirst")))) (Lit (String "nodesfirst")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "EdgesFirst")))) (Lit (String "edgesfirst"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Pack") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DoPack") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DontPack") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackMargin") [UnBangedTy (TyCon (UnQual (Ident "Int")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Pack"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DoPack")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DontPack")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PackMargin")) [PVar (Ident "m")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "m"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Pack"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PackMargin")))) (Var (UnQual (Ident "parseUnqt"))),App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "DontPack")))) (Con (UnQual (Ident "DoPack")))))) (Var (UnQual (Ident "onlyBool")))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "PackMode") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackNode") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackClust") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackGraph") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PackArray") [UnBangedTy (TyCon (UnQual (Ident "Bool"))),UnBangedTy (TyCon (UnQual (Ident "Bool"))),UnBangedTy (TyParen (TyApp (TyCon (UnQual (Ident "Maybe"))) (TyCon (UnQual (Ident "Int")))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "PackMode"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PackNode")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "node")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PackClust")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "clust")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PackGraph")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "graph")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PackArray")) [PVar (Ident "c"),PVar (Ident "u"),PVar (Ident "mi")])] Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "addNum"))) (QVarOp (UnQual (Symbol "."))) (InfixApp (Var (UnQual (Ident "isU"))) (QVarOp (UnQual (Symbol "."))) (InfixApp (Var (UnQual (Ident "isC"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "isUnder")))))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "text"))) (Lit (String "array"))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "addNum")) Nothing (UnGuardedRhs (App (App (App (Var (UnQual (Ident "maybe"))) (Var (UnQual (Ident "id")))) (Paren (InfixApp (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "<>")))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot")))))) (Var (UnQual (Ident "mi"))))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "isUnder")) Nothing (UnGuardedRhs (If (InfixApp (Var (UnQual (Ident "c"))) (QVarOp (UnQual (Symbol "||"))) (Var (UnQual (Ident "u")))) (InfixApp (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "<>")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "char"))) (Lit (Char '_')))) (Var (UnQual (Ident "id"))))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "isC")) Nothing (UnGuardedRhs (If (Var (UnQual (Ident "c"))) (InfixApp (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "<>")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "char"))) (Lit (Char 'c')))) (Var (UnQual (Ident "id"))))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "isU")) Nothing (UnGuardedRhs (If (Var (UnQual (Ident "u"))) (InfixApp (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "<>")))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "char"))) (Lit (Char 'u')))) (Var (UnQual (Ident "id"))))) (BDecls [])])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "PackMode"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PackNode")))) (Lit (String "node")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PackClust")))) (Lit (String "clust")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PackGraph")))) (Lit (String "graph")),Do [Qualifier (App (Var (UnQual (Ident "string"))) (Lit (String "array"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "mcu")) (InfixApp (Var (UnQual (Ident "optional"))) (QVarOp (UnQual (Symbol "$"))) (Do [Qualifier (App (Var (UnQual (Ident "character"))) (Lit (Char '_'))),Qualifier (InfixApp (Var (UnQual (Ident "many1"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "satisfy"))) (Var (UnQual (Ident "isCU")))))])),LetStmt (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "c")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "hasCharacter"))) (Var (UnQual (Ident "mcu")))) (Lit (Char 'c')))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "u")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "hasCharacter"))) (Var (UnQual (Ident "mcu")))) (Lit (Char 'u')))) (BDecls [])]),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "mi")) (App (Var (UnQual (Ident "optional"))) (Var (UnQual (Ident "parseUnqt")))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (Con (UnQual (Ident "PackArray"))) (Var (UnQual (Ident "c")))) (Var (UnQual (Ident "u")))) (Var (UnQual (Ident "mi")))))]]))) (BDecls [FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "hasCharacter") [PVar (Ident "ms"),PVar (Ident "c")] Nothing (UnGuardedRhs (App (App (App (Var (UnQual (Ident "maybe"))) (Con (UnQual (Ident "False")))) (Paren (App (Var (UnQual (Ident "elem"))) (Var (UnQual (Ident "c")))))) (Var (UnQual (Ident "ms"))))) (BDecls [])],PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "isCU")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Ident "elem")))) (List [Lit (Char 'c'),Lit (Char 'u')]))) (BDecls [])]))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Pos") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PointPos") [UnBangedTy (TyCon (UnQual (Ident "Point")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SplinePos") [UnBangedTy (TyList (TyCon (UnQual (Ident "Spline"))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Pos"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PointPos")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "p"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SplinePos")) [PVar (Ident "ss")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "ss"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "PointPos")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "p"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "SplinePos")) [PVar (Ident "ss")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "ss"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Pos"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "splns")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (Case (Var (UnQual (Ident "splns"))) [Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PList [PApp (UnQual (Ident "Spline")) [PApp (UnQual (Ident "Nothing")) [],PApp (UnQual (Ident "Nothing")) [],PList [PVar (Ident "p")]]]) (UnGuardedAlt (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (Con (UnQual (Ident "PointPos"))) (Var (UnQual (Ident "p")))))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) PWildCard (UnGuardedAlt (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (Con (UnQual (Ident "SplinePos"))) (Var (UnQual (Ident "splns")))))) (BDecls [])])])) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "EdgeType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SplineEdges") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "LineEdges") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoEdges") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PolyLine") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "CompoundEdge") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "EdgeType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SplineEdges")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "LineEdges")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoEdges")) []] Nothing (UnGuardedRhs (Var (UnQual (Ident "empty")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PolyLine")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "polyline")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "CompoundEdge")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "compound")))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PApp (UnQual (Ident "NoEdges")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "doubleQuotes"))) (Var (UnQual (Ident "empty"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "et")] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "et"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "EdgeType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "LineEdges")))) (Con (UnQual (Ident "SplineEdges")))))) (Var (UnQual (Ident "parse"))),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SplineEdges")))) (Lit (String "spline")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "LineEdges")))) (Lit (String "line")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PolyLine")))) (Lit (String "polyline")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "CompoundEdge")))) (Lit (String "compound"))]))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoEdges")))) (Lit (String "\"\""))) (QVarOp (UnQual (Ident "onFail"))) (App (Var (UnQual (Ident "optionalQuoted"))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "PageDir") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Bl") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Br") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Tl") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Tr") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rb") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rt") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Lb") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Lt") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "PageDir"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Bl")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "BL")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Br")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "BR")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Tl")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "TL")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Tr")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "TR")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Rb")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "RB")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Rt")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "RT")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Lb")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "LB")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Lt")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "LT")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "PageDir"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Bl")))) (Lit (String "BL")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Br")))) (Lit (String "BR")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Tl")))) (Lit (String "TL")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Tr")))) (Lit (String "TR")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Rb")))) (Lit (String "RB")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Rt")))) (Lit (String "RT")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Lb")))) (Lit (String "LB")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Lt")))) (Lit (String "LT"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Spline") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Spline") [UnBangedTy (TyParen (TyApp (TyCon (UnQual (Ident "Maybe"))) (TyCon (UnQual (Ident "Point"))))),UnBangedTy (TyParen (TyApp (TyCon (UnQual (Ident "Maybe"))) (TyCon (UnQual (Ident "Point"))))),UnBangedTy (TyList (TyCon (UnQual (Ident "Point"))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Spline"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "Spline")) [PVar (Ident "ms"),PVar (Ident "me"),PVar (Ident "ps")])] Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "addS"))) (QVarOp (UnQual (Symbol "."))) (InfixApp (Var (UnQual (Ident "addE"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "hsep"))))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "unqtDot")))) (Var (UnQual (Ident "ps")))))) (BDecls [FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "addP") [PVar (Ident "t")] Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "maybe"))) (Var (UnQual (Ident "id")))) (Paren (InfixApp (Var (UnQual (Symbol "<+>"))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "commaDel"))) (Var (UnQual (Ident "t")))))))) (BDecls [])],PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "addS")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "addP"))) (Lit (Char 's'))) (Var (UnQual (Ident "ms"))))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "addE")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "addP"))) (Lit (Char 'e'))) (Var (UnQual (Ident "me"))))) (BDecls [])])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "toDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "unqtListToDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "hcat"))) (QVarOp (UnQual (Symbol "."))) (InfixApp (App (Var (UnQual (Ident "punctuate"))) (Var (UnQual (Ident "semi")))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "unqtDot"))))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "listToDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtListToDot"))))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Spline"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "ms")) (App (Var (UnQual (Ident "parseP"))) (Lit (Char 's'))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "me")) (App (Var (UnQual (Ident "parseP"))) (Lit (Char 'e'))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "ps")) (App (App (Var (UnQual (Ident "sepBy1"))) (Var (UnQual (Ident "parseUnqt")))) (Var (UnQual (Ident "whitespace")))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (Con (UnQual (Ident "Spline"))) (Var (UnQual (Ident "ms")))) (Var (UnQual (Ident "me")))) (Var (UnQual (Ident "ps")))))])) (BDecls [FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "parseP") [PVar (Ident "t")] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "optional"))) (QVarOp (UnQual (Symbol "$"))) (Do [Qualifier (App (Var (UnQual (Ident "character"))) (Var (UnQual (Ident "t")))),Qualifier (Var (UnQual (Ident "parseComma"))),Qualifier (InfixApp (Var (UnQual (Ident "parseUnqt"))) (QVarOp (UnQual (Ident "discard"))) (Var (UnQual (Ident "whitespace"))))]))) (BDecls [])]])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqtList")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "sepBy1"))) (Var (UnQual (Ident "parseUnqt")))) (Paren (App (Var (UnQual (Ident "character"))) (Lit (Char ';')))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "QuadType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NormalQT") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FastQT") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoQT") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "QuadType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NormalQT")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "normal")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FastQT")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "fast")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoQT")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "none")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "QuadType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NormalQT")))) (Lit (String "normal")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FastQT")))) (Lit (String "fast")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoQT")))) (Lit (String "none")),InfixApp (App (Var (UnQual (Ident "character"))) (Lit (Char '2'))) (QVarOp (UnQual (Symbol ">>"))) (App (Var (UnQual (Ident "return"))) (Con (UnQual (Ident "FastQT")))),App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "NoQT")))) (Con (UnQual (Ident "NormalQT")))))) (Var (UnQual (Ident "parse")))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Root") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "IsCentral") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NotCentral") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NodeName") [UnBangedTy (TyCon (UnQual (Ident "String")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Root"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "IsCentral")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NotCentral")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "NodeName")) [PVar (Ident "n")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "n"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "NodeName")) [PVar (Ident "n")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "n"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "r")] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "r"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Root"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "NotCentral")))) (Con (UnQual (Ident "IsCentral")))))) (Var (UnQual (Ident "onlyBool")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NodeName")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "optionalQuoted"))) (Paren (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "bool"))) (Con (UnQual (Ident "NotCentral")))) (Con (UnQual (Ident "IsCentral")))))) (Var (UnQual (Ident "onlyBool")))))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NodeName")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "RankType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SameRank") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MinRank") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SourceRank") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MaxRank") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SinkRank") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "RankType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SameRank")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "same")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "MinRank")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "min")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SourceRank")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "source")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "MaxRank")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "max")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SinkRank")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "sink")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "RankType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SameRank")))) (Lit (String "same")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "MinRank")))) (Lit (String "min")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SourceRank")))) (Lit (String "source")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "MaxRank")))) (Lit (String "max")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SinkRank")))) (Lit (String "sink"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "RankDir") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FromTop") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FromLeft") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FromBottom") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FromRight") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "RankDir"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FromTop")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "TB")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FromLeft")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "LR")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FromBottom")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "BT")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FromRight")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "RL")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "RankDir"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FromTop")))) (Lit (String "TB")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FromLeft")))) (Lit (String "LR")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FromBottom")))) (Lit (String "BT")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FromRight")))) (Lit (String "RL"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Shape") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "BoxShape") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Polygon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Ellipse") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Circle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PointShape") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Egg") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Triangle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PlainText") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DiamondShape") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Trapezium") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Parallelogram") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "House") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Pentagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Hexagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Septagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Octagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DoubleCircle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DoubleOctagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TripleOctagon") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "InvTriangle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "InvTrapezium") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "InvHouse") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MDiamond") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MSquare") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "MCircle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Note") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Tab") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Folder") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Box3D") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Component") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Shape"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "BoxShape")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "box")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Polygon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "polygon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Ellipse")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "ellipse")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Circle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "circle")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PointShape")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "point")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Egg")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "egg")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Triangle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "triangle")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PlainText")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "plaintext")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DiamondShape")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "diamond")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Trapezium")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "trapezium")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Parallelogram")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "parallelogram")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "House")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "house")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Pentagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "pentagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Hexagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "hexagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Septagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "septagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Octagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "octagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DoubleCircle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "doublecircle")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "DoubleOctagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "doubleoctagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "TripleOctagon")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "tripleoctagon")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "InvTriangle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "invtriangle")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "InvTrapezium")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "invtrapezium")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "InvHouse")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "invhouse")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "MDiamond")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "Mdiamond")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "MSquare")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "Msquare")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "MCircle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "Mcircle")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Note")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "note")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Tab")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "tab")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Folder")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "folder")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Box3D")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "box3d")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Component")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "component")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Shape"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Box3D")))) (Lit (String "box3d")),App (App (Var (UnQual (Ident "stringReps"))) (Con (UnQual (Ident "BoxShape")))) (List [Lit (String "box"),Lit (String "rectangle"),Lit (String "rect")]),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Polygon")))) (Lit (String "polygon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Ellipse")))) (Lit (String "ellipse")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Circle")))) (Lit (String "circle")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PointShape")))) (Lit (String "point")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Egg")))) (Lit (String "egg")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Triangle")))) (Lit (String "triangle")),App (App (Var (UnQual (Ident "stringReps"))) (Con (UnQual (Ident "PlainText")))) (List [Lit (String "plaintext"),Lit (String "none")]),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "DiamondShape")))) (Lit (String "diamond")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Trapezium")))) (Lit (String "trapezium")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Parallelogram")))) (Lit (String "parallelogram")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "House")))) (Lit (String "house")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Pentagon")))) (Lit (String "pentagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Hexagon")))) (Lit (String "hexagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Septagon")))) (Lit (String "septagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Octagon")))) (Lit (String "octagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "DoubleCircle")))) (Lit (String "doublecircle")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "DoubleOctagon")))) (Lit (String "doubleoctagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "TripleOctagon")))) (Lit (String "tripleoctagon")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "InvTriangle")))) (Lit (String "invtriangle")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "InvTrapezium")))) (Lit (String "invtrapezium")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "InvHouse")))) (Lit (String "invhouse")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "MDiamond")))) (Lit (String "Mdiamond")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "MSquare")))) (Lit (String "Msquare")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "MCircle")))) (Lit (String "Mcircle")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Note")))) (Lit (String "note")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Tab")))) (Lit (String "tab")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Folder")))) (Lit (String "folder")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Component")))) (Lit (String "component"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "SmoothType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoSmooth") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "AvgDist") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "GraphDist") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PowerDist") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RNG") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Spring") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "TriangleSmooth") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "SmoothType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoSmooth")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "none")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "AvgDist")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "avg_dist")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "GraphDist")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "graph_dist")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "PowerDist")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "power_dist")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "RNG")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "rng")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Spring")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "spring")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "TriangleSmooth")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "triangle")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "SmoothType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoSmooth")))) (Lit (String "none")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "AvgDist")))) (Lit (String "avg_dist")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "GraphDist")))) (Lit (String "graph_dist")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "PowerDist")))) (Lit (String "power_dist")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "RNG")))) (Lit (String "rng")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "Spring")))) (Lit (String "spring")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "TriangleSmooth")))) (Lit (String "triangle"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "StartType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "StartStyle") [UnBangedTy (TyCon (UnQual (Ident "STStyle")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "StartSeed") [UnBangedTy (TyCon (UnQual (Ident "Int")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "StartStyleSeed") [UnBangedTy (TyCon (UnQual (Ident "STStyle"))),UnBangedTy (TyCon (UnQual (Ident "Int")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "StartType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "StartStyle")) [PVar (Ident "ss")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "ss"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "StartSeed")) [PVar (Ident "s")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "StartStyleSeed")) [PVar (Ident "ss"),PVar (Ident "s")])] Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "ss")))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "s")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "StartType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "ss")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "s")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Con (UnQual (Ident "StartStyleSeed"))) (Var (UnQual (Ident "ss")))) (Var (UnQual (Ident "s")))))],App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "StartStyle")))) (Var (UnQual (Ident "parseUnqt"))),App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "StartSeed")))) (Var (UnQual (Ident "parseUnqt")))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "STStyle") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RegularStyle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SelfStyle") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "RandomStyle") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "STStyle"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "RegularStyle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "regular")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SelfStyle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "self")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "RandomStyle")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "random")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "STStyle"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "RegularStyle")))) (Lit (String "regular")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SelfStyle")))) (Lit (String "self")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "RandomStyle")))) (Lit (String "random"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "StyleItem") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SItem") [UnBangedTy (TyCon (UnQual (Ident "StyleName"))),UnBangedTy (TyList (TyCon (UnQual (Ident "String"))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "StyleItem"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "SItem")) [PVar (Ident "nm"),PVar (Ident "args")])] Nothing (GuardedRhss [GuardedRhs (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Qualifier (App (Var (UnQual (Ident "null"))) (Var (UnQual (Ident "args"))))] (Var (UnQual (Ident "dnm"))),GuardedRhs (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Qualifier (Var (UnQual (Ident "otherwise")))] (InfixApp (Var (UnQual (Ident "dnm"))) (QVarOp (UnQual (Symbol "<>"))) (App (Var (UnQual (Ident "parens"))) (Var (UnQual (Ident "args'")))))]) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "dnm")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "nm"))))) (BDecls []),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "args'")) Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "hcat"))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "punctuate"))) (Var (UnQual (Ident "comma"))))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "unqtDot")))) (Var (UnQual (Ident "args")))))) (BDecls [])])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PAsPat (Ident "si") (PParen (PApp (UnQual (Ident "SItem")) [PVar (Ident "nm"),PVar (Ident "args")]))] Nothing (GuardedRhss [GuardedRhs (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Qualifier (App (Var (UnQual (Ident "null"))) (Var (UnQual (Ident "args"))))] (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "nm")))),GuardedRhs (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Qualifier (Var (UnQual (Ident "otherwise")))] (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "si")))))]) (BDecls [])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "unqtListToDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "hcat"))) (QVarOp (UnQual (Symbol "."))) (InfixApp (App (Var (UnQual (Ident "punctuate"))) (Var (UnQual (Ident "comma")))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "unqtDot"))))))) (BDecls [])),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "listToDot") [PList [PApp (UnQual (Ident "SItem")) [PVar (Ident "nm"),PList []]]] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "nm"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "listToDot") [PVar (Ident "sis")] Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "unqtListToDot"))) (Var (UnQual (Ident "sis")))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "StyleItem"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "nm")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "args")) (App (Var (UnQual (Ident "tryParseList'"))) (Var (UnQual (Ident "parseArgs")))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (Con (UnQual (Ident "SItem"))) (Var (UnQual (Ident "nm")))) (Var (UnQual (Ident "args")))))])) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Paren (App (App (App (Var (UnQual (Ident "liftM2"))) (Con (UnQual (Ident "SItem")))) (Var (UnQual (Ident "parseUnqt")))) (Var (UnQual (Ident "parseArgs")))))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Paren (App (App (Var (UnQual (Ident "flip"))) (Con (UnQual (Ident "SItem")))) (List [])))) (Var (UnQual (Ident "parse")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqtList")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "sepBy1"))) (Var (UnQual (Ident "parseUnqt")))) (Var (UnQual (Ident "parseComma"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseList")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqtList")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "return")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "parseArgs"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyList (TyCon (UnQual (Ident "String"))))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseArgs")) Nothing (UnGuardedRhs (App (App (App (App (Var (UnQual (Ident "bracketSep"))) (Paren (App (Var (UnQual (Ident "character"))) (Lit (Char '('))))) (Var (UnQual (Ident "parseComma")))) (Paren (App (Var (UnQual (Ident "character"))) (Lit (Char ')'))))) (Var (UnQual (Ident "parseStyleName"))))) (BDecls []),DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "StyleName") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Dashed") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Dotted") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Solid") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Bold") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Invisible") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Filled") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Diagonals") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "Rounded") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "DD") [UnBangedTy (TyCon (UnQual (Ident "String")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "StyleName"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Dashed")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "dashed")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Dotted")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "dotted")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Solid")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "solid")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Bold")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "bold")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Invisible")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "invis")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Filled")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "filled")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Diagonals")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "diagonals")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "Rounded")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "rounded")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "DD")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "nm"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "DD")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "nm"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PVar (Ident "sn")] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "sn"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "StyleName"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "checkDD")))) (Var (UnQual (Ident "parseStyleName"))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (Var (UnQual (Ident "liftM"))) (Var (UnQual (Ident "checkDD")))) (QVarOp (UnQual (Symbol "$"))) (InfixApp (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseStyleName")))) (QVarOp (UnQual (Ident "onFail"))) (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "f")) (InfixApp (Var (UnQual (Ident "orQuote"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "noneOf"))) (List [Var (UnQual (Ident "quoteChar")),Lit (Char '('),Lit (Char ')'),Lit (Char ','),Lit (Char ' '),Lit (Char ']')]))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "r")) (App (Var (UnQual (Ident "many"))) (Paren (InfixApp (Var (UnQual (Ident "orQuote"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "noneOf"))) (List [Var (UnQual (Ident "quoteChar")),Lit (Char '('),Lit (Char ')'),Lit (Char ','),Lit (Char ']')]))))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (InfixApp (Var (UnQual (Ident "f"))) (QConOp (Special Cons)) (Var (UnQual (Ident "r")))))])))) (BDecls []))],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "checkDD"] (TyFun (TyCon (UnQual (Ident "String"))) (TyCon (UnQual (Ident "StyleName")))),FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "checkDD") [PVar (Ident "str")] Nothing (UnGuardedRhs (Case (App (App (Var (UnQual (Ident "map"))) (Var (UnQual (Ident "toLower")))) (Var (UnQual (Ident "str")))) [Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "dashed")) (UnGuardedAlt (Con (UnQual (Ident "Dashed")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "dotted")) (UnGuardedAlt (Con (UnQual (Ident "Dotted")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "solid")) (UnGuardedAlt (Con (UnQual (Ident "Solid")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "bold")) (UnGuardedAlt (Con (UnQual (Ident "Bold")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "invis")) (UnGuardedAlt (Con (UnQual (Ident "Invisible")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "filled")) (UnGuardedAlt (Con (UnQual (Ident "Filled")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "diagonals")) (UnGuardedAlt (Con (UnQual (Ident "Diagonals")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PLit (String "rounded")) (UnGuardedAlt (Con (UnQual (Ident "Rounded")))) (BDecls []),Alt (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) PWildCard (UnGuardedAlt (App (Con (UnQual (Ident "DD"))) (Var (UnQual (Ident "str"))))) (BDecls [])])) (BDecls [])],TypeSig (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [Ident "parseStyleName"] (TyApp (TyCon (UnQual (Ident "Parse"))) (TyCon (UnQual (Ident "String")))),PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseStyleName")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "f")) (InfixApp (Var (UnQual (Ident "orQuote"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "noneOf"))) (List [Var (UnQual (Ident "quoteChar")),Lit (Char '('),Lit (Char ')'),Lit (Char ','),Lit (Char ' ')]))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "r")) (App (Var (UnQual (Ident "many"))) (Paren (InfixApp (Var (UnQual (Ident "orQuote"))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "noneOf"))) (List [Var (UnQual (Ident "quoteChar")),Lit (Char '('),Lit (Char ')'),Lit (Char ',')]))))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (InfixApp (Var (UnQual (Ident "f"))) (QConOp (Special Cons)) (Var (UnQual (Ident "r")))))])) (BDecls []),DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) NewType [] (Ident "PortPos") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "PP") [UnBangedTy (TyCon (UnQual (Ident "CompassPoint")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "PortPos"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "PP")) [PVar (Ident "cp")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "cp"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "PP")) [PVar (Ident "cp")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "cp"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "PortPos"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "PP")))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "CompassPoint") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "North") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NorthEast") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "East") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SouthEast") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "South") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "SouthWest") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "West") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NorthWest") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "CenterPoint") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoCP") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "CompassPoint"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NorthEast")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "ne")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NorthWest")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "nw")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "North")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "n")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "East")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "e")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SouthEast")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "se")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "SouthWest")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "sw")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "South")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "s")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "West")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "w")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "CenterPoint")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "c")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoCP")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "_")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "CompassPoint"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NorthEast")))) (Lit (String "ne")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NorthWest")))) (Lit (String "nw")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "North")))) (Lit (String "n")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SouthEast")))) (Lit (String "se")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "SouthWest")))) (Lit (String "sw")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "South")))) (Lit (String "s")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "East")))) (Lit (String "e")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "West")))) (Lit (String "w")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "CenterPoint")))) (Lit (String "c")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoCP")))) (Lit (String "_"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ViewPort") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (RecDecl (Ident "VP") [([Ident "wVal"],UnBangedTy (TyCon (UnQual (Ident "Double")))),([Ident "hVal"],UnBangedTy (TyCon (UnQual (Ident "Double")))),([Ident "zVal"],UnBangedTy (TyCon (UnQual (Ident "Double")))),([Ident "focus"],UnBangedTy (TyApp (TyCon (UnQual (Ident "Maybe"))) (TyCon (UnQual (Ident "FocusType")))))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ViewPort"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PVar (Ident "vp")] Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "maybe"))) (Var (UnQual (Ident "vs")))) (Paren (InfixApp (App (Var (UnQual (Symbol "<>"))) (Paren (InfixApp (Var (UnQual (Ident "vs"))) (QVarOp (UnQual (Symbol "<>"))) (Var (UnQual (Ident "comma")))))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot")))))) (QVarOp (UnQual (Symbol "$"))) (App (Var (UnQual (Ident "focus"))) (Var (UnQual (Ident "vp")))))) (BDecls [PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "vs")) Nothing (UnGuardedRhs (InfixApp (InfixApp (Var (UnQual (Ident "hcat"))) (QVarOp (UnQual (Symbol "."))) (App (Var (UnQual (Ident "punctuate"))) (Var (UnQual (Ident "comma"))))) (QVarOp (UnQual (Symbol "$"))) (App (App (Var (UnQual (Ident "map"))) (Paren (InfixApp (Var (UnQual (Ident "unqtDot"))) (QVarOp (UnQual (Symbol "."))) (App (App (Var (UnQual (Ident "flip"))) (Var (UnQual (Symbol "$")))) (Var (UnQual (Ident "vp"))))))) (List [Var (UnQual (Ident "wVal")),Var (UnQual (Ident "hVal")),Var (UnQual (Ident "zVal"))])))) (BDecls [])])]),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "toDot")) Nothing (UnGuardedRhs (InfixApp (Var (UnQual (Ident "doubleQuotes"))) (QVarOp (UnQual (Symbol "."))) (Var (UnQual (Ident "unqtDot"))))) (BDecls []))],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ViewPort"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (Do [Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "wv")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (Var (UnQual (Ident "parseComma"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "hv")) (Var (UnQual (Ident "parseUnqt"))),Qualifier (Var (UnQual (Ident "parseComma"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "zv")) (Var (UnQual (Ident "parseUnqt"))),Generator (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "mf")) (InfixApp (Var (UnQual (Ident "optional"))) (QVarOp (UnQual (Symbol "$"))) (InfixApp (Var (UnQual (Ident "parseComma"))) (QVarOp (UnQual (Symbol ">>"))) (Var (UnQual (Ident "parseUnqt"))))),Qualifier (InfixApp (Var (UnQual (Ident "return"))) (QVarOp (UnQual (Symbol "$"))) (App (App (App (App (Con (UnQual (Ident "VP"))) (Var (UnQual (Ident "wv")))) (Var (UnQual (Ident "hv")))) (Var (UnQual (Ident "zv")))) (Var (UnQual (Ident "mf")))))])) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "quotedParse"))) (Var (UnQual (Ident "parseUnqt"))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "FocusType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "XY") [UnBangedTy (TyCon (UnQual (Ident "Point")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NodeFocus") [UnBangedTy (TyCon (UnQual (Ident "String")))])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "FocusType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "XY")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "p"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "NodeFocus")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "nm"))))) (BDecls [])]),InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "XY")) [PVar (Ident "p")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "p"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "toDot") [PParen (PApp (UnQual (Ident "NodeFocus")) [PVar (Ident "nm")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "toDot"))) (Var (UnQual (Ident "nm"))))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "FocusType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "XY")))) (Var (UnQual (Ident "parseUnqt")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NodeFocus")))) (Var (UnQual (Ident "parseUnqt")))))) (BDecls [])),InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parse")) Nothing (UnGuardedRhs (InfixApp (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "XY")))) (Var (UnQual (Ident "parse")))) (QVarOp (UnQual (Ident "onFail"))) (App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "NodeFocus")))) (Var (UnQual (Ident "parse")))))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "VerticalPlacement") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "VTop") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "VCenter") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "VBottom") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "VerticalPlacement"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "VTop")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 't')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "VCenter")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'c')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "VBottom")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'b')))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "VerticalPlacement"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "VTop")))) (Lit (String "t")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "VCenter")))) (Lit (String "c")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "VBottom")))) (Lit (String "b"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "ScaleType") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "UniformScale") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "NoScale") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FillWidth") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FillHeight") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FillBoth") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "ScaleType"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "UniformScale")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "True"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "NoScale")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Con (UnQual (Ident "False"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FillWidth")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "width")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FillHeight")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "height")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FillBoth")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "both")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "ScaleType"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "UniformScale")))) (Lit (String "true")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "NoScale")))) (Lit (String "false")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FillWidth")))) (Lit (String "width")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FillHeight")))) (Lit (String "height")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FillBoth")))) (Lit (String "both"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Justification") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "JLeft") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "JRight") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "JCenter") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Bounded"),[]),(UnQual (Ident "Enum"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Justification"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "JLeft")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'l')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "JRight")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'r')))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "JCenter")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "char"))) (Lit (Char 'c')))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Justification"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "JLeft")))) (Lit (String "l")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "JRight")))) (Lit (String "r")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "JCenter")))) (Lit (String "c"))]))) (BDecls []))],DataDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) DataType [] (Ident "Ratios") [] [QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "AspectRatio") [UnBangedTy (TyCon (UnQual (Ident "Double")))]),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "FillRatio") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "CompressRatio") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "ExpandRatio") []),QualConDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] [] (ConDecl (Ident "AutoRatio") [])] [(UnQual (Ident "Eq"),[]),(UnQual (Ident "Ord"),[]),(UnQual (Ident "Show"),[]),(UnQual (Ident "Read"),[])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "PrintDot")) [TyCon (UnQual (Ident "Ratios"))] [InsDecl (FunBind [Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PParen (PApp (UnQual (Ident "AspectRatio")) [PVar (Ident "r")])] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "unqtDot"))) (Var (UnQual (Ident "r"))))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "FillRatio")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "fill")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "CompressRatio")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "compress")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "ExpandRatio")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "expand")))) (BDecls []),Match (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (Ident "unqtDot") [PApp (UnQual (Ident "AutoRatio")) []] Nothing (UnGuardedRhs (App (Var (UnQual (Ident "text"))) (Lit (String "auto")))) (BDecls [])])],InstDecl (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) [] (UnQual (Ident "ParseDot")) [TyCon (UnQual (Ident "Ratios"))] [InsDecl (PatBind (SrcLoc {srcFilename = "", srcLine = -1, srcColumn = -1}) (PVar (Ident "parseUnqt")) Nothing (UnGuardedRhs (App (Var (UnQual (Ident "oneOf"))) (List [App (App (Var (UnQual (Ident "liftM"))) (Con (UnQual (Ident "AspectRatio")))) (Var (UnQual (Ident "parseUnqt"))),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "FillRatio")))) (Lit (String "fill")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "CompressRatio")))) (Lit (String "compress")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "ExpandRatio")))) (Lit (String "expand")),App (App (Var (UnQual (Ident "stringRep"))) (Con (UnQual (Ident "AutoRatio")))) (Lit (String "auto"))]))) (BDecls []))]]