[clean up HsSyn.hs
John Meacham <john@repetae.net>**20120118133137
 Ignore-this: 93fefddd3da00fa595a34c11c04ff61d
] hunk ./src/FrontEnd/HsSyn.hs 3
-
-
-import StringTable.Atom
-import StringTable.Atom()
hunk ./src/FrontEnd/HsSyn.hs 4
-import C.FFI
hunk ./src/FrontEnd/HsSyn.hs 5
+
+import C.FFI
hunk ./src/FrontEnd/HsSyn.hs 10
-
-
-
-
+import StringTable.Atom
+import StringTable.Atom()
hunk ./src/FrontEnd/HsSyn.hs 23
-
hunk ./src/FrontEnd/HsSyn.hs 26
-
--- Names
-
-
hunk ./src/FrontEnd/HsSyn.hs 27
---data HsName
---	= Qual { hsNameModule :: Module, hsNameIdent ::  HsIdentifier}
---	| UnQual { hsNameIdent :: HsIdentifier}
---  deriving(Data,Typeable,Eq,Ord)
---  {- derive: is, update, Binary !-}
-
-
---instance ToAtom HsName where
---    toAtom = toAtom . show
-
---instance Show HsName where
---   showsPrec _ (Qual (Module m) s) =
---	showString m . showString "." . shows s
---   showsPrec _ (UnQual s) = shows s
-
---newtype HsIdentifier = HsIdent { hsIdentString :: String }
---  deriving(Data,Typeable,Eq,Ord)
hunk ./src/FrontEnd/HsSyn.hs 34
---instance Binary HsIdentifier where
---    get = do
---        ps <- get
---        return (HsIdent $ fromAtom ps)
---    put (HsIdent n) = put (toAtom n)
---
---hsIdentString_u f x = x { hsIdentString = f $ hsIdentString x }
-
---	| HsSymbol {hsIdentString :: String }
---	| HsSpecial {hsIdentString :: String }
-
---instance Show HsIdentifier where
---   showsPrec _ (HsIdent s) = showString s
---   showsPrec _ (HsSymbol s) = showString s
---   showsPrec _ (HsSpecial s) = showString s
-
hunk ./src/FrontEnd/HsSyn.hs 60
-
hunk ./src/FrontEnd/HsSyn.hs 125
-    = HsTypeDecl	 { hsDeclSrcLoc :: SrcLoc, hsDeclName :: HsName, hsDeclTArgs :: [HsType], hsDeclType :: HsType }
+    = HsTypeDecl	 {
+        hsDeclSrcLoc :: SrcLoc,
+        hsDeclName :: HsName,
+        hsDeclTArgs :: [HsType],
+        hsDeclType :: HsType
+        }
hunk ./src/FrontEnd/HsSyn.hs 149
-    | HsInfixDecl   { hsDeclSrcLoc :: SrcLoc, hsDeclAssoc :: HsAssoc, hsDeclInt :: !Int, hsDeclNames :: [HsName]  }
-    | HsClassDecl   { hsDeclSrcLoc :: SrcLoc, hsDeclQualType :: HsQualType, hsDeclDecls :: [HsDecl] }
+    | HsInfixDecl   {
+        hsDeclSrcLoc :: SrcLoc,
+        hsDeclAssoc :: HsAssoc,
+        hsDeclInt :: !Int,
+        hsDeclNames :: [HsName]
+        }
+    | HsClassDecl   {
+        hsDeclSrcLoc :: SrcLoc,
+        hsDeclQualType :: HsQualType,
+        hsDeclDecls :: [HsDecl]
+        }
hunk ./src/FrontEnd/HsSyn.hs 168
-    | HsInstDecl    { hsDeclSrcLoc :: SrcLoc, hsDeclQualType :: HsQualType, hsDeclDecls :: [HsDecl] }
+    | HsInstDecl    {
+        hsDeclSrcLoc :: SrcLoc,
+        hsDeclQualType :: HsQualType,
+        hsDeclDecls :: [HsDecl]
+        }
hunk ./src/FrontEnd/HsSyn.hs 175
-    | HsFunBind     [HsMatch]
+    | HsFunBind  [HsMatch]
hunk ./src/FrontEnd/HsSyn.hs 211
-    | HsDeclDeriving { hsDeclSrcLoc :: SrcLoc, hsDeclClassHead :: HsClassHead }
+    | HsDeclDeriving {
+        hsDeclSrcLoc :: SrcLoc,
+        hsDeclClassHead :: HsClassHead
+        }
hunk ./src/FrontEnd/HsSyn.hs 260
-data HsGuardedRhs
-	 = HsGuardedRhs SrcLoc HsExp HsExp
+data HsGuardedRhs = HsGuardedRhs SrcLoc HsExp HsExp
hunk ./src/FrontEnd/HsSyn.hs 263
-data HsQualType = HsQualType { hsQualTypeContext :: HsContext, hsQualTypeType :: HsType }
-  deriving(Data,Typeable,Eq,Ord,Show)
+data HsQualType = HsQualType {
+    hsQualTypeContext :: HsContext,
+    hsQualTypeType :: HsType
+    } deriving(Data,Typeable,Eq,Ord,Show)
hunk ./src/FrontEnd/HsSyn.hs 282
-         | HsTyExpKind { hsTySrcLoc :: SrcLoc, hsTyType :: HsType, hsTyKind :: HsKind }
+         | HsTyExpKind {
+             hsTySrcLoc :: SrcLoc,
+             hsTyType :: HsType,
+             hsTyKind :: HsKind
+             }
hunk ./src/FrontEnd/HsSyn.hs 300
-hsTyVarBind = HsTyVarBind { hsTyVarBindSrcLoc = bogusASrcLoc, hsTyVarBindName = undefined, hsTyVarBindKind = Nothing }
+hsTyVarBind = HsTyVarBind {
+    hsTyVarBindSrcLoc = bogusASrcLoc,
+    hsTyVarBindName = undefined,
+    hsTyVarBindKind = Nothing
+    }
hunk ./src/FrontEnd/HsSyn.hs 347
-	= HsVar { {- hsExpSrcSpan :: SrcSpan,-} hsExpName :: HsName }
+	= HsVar { {-hsExpSrcSpan :: SrcSpan,-} hsExpName :: HsName }
hunk ./src/FrontEnd/HsSyn.hs 406
-data HsPatField
-	= HsPFieldPat HsName HsPat
- deriving(Eq,Ord,Show)
+data HsPatField = HsPFieldPat HsName HsPat
+    deriving(Eq,Ord,Show)
hunk ./src/FrontEnd/HsSyn.hs 415
-data HsFieldUpdate
-	= HsFieldUpdate HsName HsExp
+data HsFieldUpdate = HsFieldUpdate HsName HsExp
hunk ./src/FrontEnd/HsSyn.hs 425
---hsKindStar = HsKind (Qual (Module "Jhc@") (HsIdent "*"))
---hsKindHash = HsKind (Qual (Module "Jhc@") (HsIdent "#"))
---hsKindBang = HsKind (Qual (Module "Jhc@") (HsIdent "!"))
---hsKindQuest = HsKind (Qual (Module "Jhc@") (HsIdent "?"))
---hsKindQuestQuest = HsKind (Qual (Module "Jhc@") (HsIdent "??"))
---hsKindStarBang   = HsKind (Qual (Module "Jhc@") (HsIdent "*!"))
---
hunk ./src/FrontEnd/HsSyn.hs 431
-
------------------------------------------------------------------------------
--- Builtin names.
-
hunk ./src/FrontEnd/Syn/Options.hs 3
-
-import Text.ParserCombinators.ReadP
hunk ./src/FrontEnd/Syn/Options.hs 5
-
-
+import Text.ParserCombinators.ReadP
hunk ./src/FrontEnd/Syn/Options.hs 17
-
hunk ./src/FrontEnd/Syn/Options.hs 29
-
hunk ./src/FrontEnd/Syn/Options.hs 47
-
-
-