Squash empty lines

well-typed · Mar 7, 2025 · 9651ba0 · 9651ba0
1 parent cb41c23
commit 9651ba0
Show file tree

Hide file tree

Showing 14 changed files with 0 additions and 21 deletions.
diff --git a/hs-bindgen-bootstrap/src/hs-bindgen-bootstrap.hs b/hs-bindgen-bootstrap/src/hs-bindgen-bootstrap.hs
@@ -33,7 +33,6 @@ main = do
         putStr contents
         writeFile "hs-bindgen-libclang/cbits/clang_wrappers_ffi.h" contents
 
-
 -------------------------------------------------------------------------------
 -- declarations
 -------------------------------------------------------------------------------

diff --git a/hs-bindgen-libclang/src/HsBindgen/Clang/LowLevel/Doxygen/Enums.hs b/hs-bindgen-libclang/src/HsBindgen/Clang/LowLevel/Doxygen/Enums.hs
@@ -88,7 +88,6 @@ data CXCommentKind =
     -- > \endverbatim
   | CXComment_VerbatimBlockCommand
 
-
     -- | A line of text that is contained within a
     -- 'CXComment_VerbatimBlockCommand' node.
   | CXComment_VerbatimBlockLine

diff --git a/hs-bindgen/src/HsBindgen/Backend/PP/Names.hs b/hs-bindgen/src/HsBindgen/Backend/PP/Names.hs
@@ -60,7 +60,6 @@ data HsImport =
   | UnqualifiedHsImport HsImportModule
   deriving (Eq, Ord, Show)
 
-
 -- | Resolved name
 data ResolvedName = ResolvedName {
       resolvedNameString :: String

diff --git a/hs-bindgen/src/HsBindgen/Backend/PP/Render.hs b/hs-bindgen/src/HsBindgen/Backend/PP/Render.hs
@@ -35,7 +35,6 @@ import Text.SimplePrettyPrint
 import C.Char (CharValue(..))
 import DeBruijn (EmptyCtx, Env (..), lookupEnv, Add (..))
 
-
 {-------------------------------------------------------------------------------
   Rendering
 -------------------------------------------------------------------------------}
@@ -191,7 +190,6 @@ prettyType env prec = \case
 prettyPrimType :: HsPrimType -> CtxDoc
 prettyPrimType = prettyType EmptyEnv 0 . TGlobal . PrimType
 
-
 {-------------------------------------------------------------------------------
   PatEpxr pretty-printing
 -------------------------------------------------------------------------------}

diff --git a/hs-bindgen/src/HsBindgen/Backend/PP/Translation.hs b/hs-bindgen/src/HsBindgen/Backend/PP/Translation.hs
@@ -86,7 +86,6 @@ translateModule HsModuleOpts{..} hsModuleDecls =
         hsModuleName    = hsModuleOptsName
     in  HsModule{..}
 
-
 {-------------------------------------------------------------------------------
   Auxiliary: Pragma resolution
 -------------------------------------------------------------------------------}

diff --git a/hs-bindgen/src/HsBindgen/C/AST/Literal.hs b/hs-bindgen/src/HsBindgen/C/AST/Literal.hs
@@ -93,7 +93,6 @@ data CharLiteral =
   deriving stock ( Eq, Show, Generic )
   deriving anyclass PrettyVal
 
-
 data StringLiteral =
   StringLiteral
     { stringLiteralText :: Text

diff --git a/hs-bindgen/src/HsBindgen/C/Reparse/Decl.hs b/hs-bindgen/src/HsBindgen/C/Reparse/Decl.hs
@@ -442,7 +442,6 @@ parameterTypes ps =
                     Nothing -> Left i
                     Just ty -> Right $ mkPtr ptrs ty
 
-
 reparseDeclarator :: forall abs. KnownDeclaratorType abs => TcMacro.TypeEnv -> Reparse (Declarator abs)
 reparseDeclarator macroTys = do
   ptr <- many reparsePointer
@@ -538,7 +537,6 @@ reparseArrayDeclarator macroTys decl = do
      }
   <?> "array declarator"
 
-
 reparseFunctionDeclarator
   :: TcMacro.TypeEnv
   -> DirectDeclarator abs
@@ -688,7 +686,6 @@ reparseTypeSpecifier macroTys =
        }
   ] <?> "type"
 
-
 reparseStorageClassSpecifier :: Reparse StorageClassSpecifier
 reparseStorageClassSpecifier =
   choice
@@ -702,7 +699,6 @@ reparseStorageClassSpecifier =
     ]
   <?> "storage class"
 
-
 reparseFunctionSpecifier :: Reparse FunctionSpecifier
 reparseFunctionSpecifier = choice
   [ keyword "inline"    $> FS_inline

diff --git a/hs-bindgen/src/HsBindgen/C/Reparse/Literal.hs b/hs-bindgen/src/HsBindgen/C/Reparse/Literal.hs
@@ -86,7 +86,6 @@ readInBase b ds =
   Reference: <https://en.cppreference.com/w/cpp/language/floating_literal>
 -------------------------------------------------------------------------------}
 
-
 reparseLiteralFloating :: TokenParser (Float, Double, PrimFloatType)
 reparseLiteralFloating = do
 

diff --git a/hs-bindgen/src/HsBindgen/C/Reparse/Macro.hs b/hs-bindgen/src/HsBindgen/C/Reparse/Macro.hs
@@ -51,7 +51,6 @@ reparseMacro = do
     functionLike loc name = Macro loc name <$> formalArgs <*> mExprTuple
     objectLike   loc name = Macro loc name [] <$> mExprTuple
 
-
 formalArgs :: Reparse [CName]
 formalArgs = parens $ formalArg `sepBy` comma
 
@@ -217,7 +216,6 @@ mExpr = buildExpressionParser ops term <?> "expression"
     ap2 :: MFun (S (S Z)) -> MExpr -> MExpr -> MExpr
     ap2 op arg1 arg2 = MApp op ( arg1 ::: arg2 ::: VNil )
 
-
 sepBy2 :: ParsecT s u m a -> ParsecT s u m sep -> ParsecT s u m (a, a, [a])
 {-# INLINEABLE sepBy2 #-}
 sepBy2 p sep = do

diff --git a/hs-bindgen/src/HsBindgen/C/Tc/Macro.hs b/hs-bindgen/src/HsBindgen/C/Tc/Macro.hs
@@ -255,7 +255,6 @@ data TyVar
   deriving stock Generic
   deriving anyclass PrettyVal
 
-
 tyVarName :: TyVar -> Name
 tyVarName = \case
   SkolemTv sk  -> skolemTyVarName sk
@@ -1425,11 +1424,9 @@ pattern Empty = Data EmptyTyCon VNil
 pattern Ptr :: Type Ty -> Type Ty
 pattern Ptr ty = Data PtrTyCon (ty ::: VNil)
 
-
 pattern Tuple :: () => ( nbArgs ~ S (S n) ) => Word -> Vec nbArgs (Type Ty) -> Type Ty
 pattern Tuple l as = Data ( TupleTyCon l ) as
 
-
 pattern PlusRes :: Type Ty -> Type Ty
 pattern PlusRes a = FamApp PlusResTyCon ( a ::: VNil )
 pattern MinusRes :: Type Ty -> Type Ty

diff --git a/hs-bindgen/src/HsBindgen/Hs/AST.hs b/hs-bindgen/src/HsBindgen/Hs/AST.hs
@@ -267,7 +267,6 @@ instance Eq ATyCon where
   ATyCon tc1 == ATyCon tc2 =
     isJust $ equals2 tc1 tc2
 
-
 data AClass where
   AClass :: C.TyCon args C.Ct -> AClass
 instance Show AClass where

diff --git a/hs-bindgen/src/HsBindgen/SHs/Translation.hs b/hs-bindgen/src/HsBindgen/SHs/Translation.hs
@@ -264,7 +264,6 @@ mfunGlobal = \case
   C.MLogicalOr  -> Logical_or
   C.MTuple @n   -> Tuple_constructor $ 2 + Fin.reflectToNum @n Proxy
 
-
 hsPrimIntTy :: C.IntegralType -> HsPrimType
 hsPrimIntTy = \case
   C.Bool -> HsPrimCBool

diff --git a/hs-bindgen/tests/Orphans.hs b/hs-bindgen/tests/Orphans.hs
@@ -152,7 +152,6 @@ instance ToExpr (CMacro.ClassTyCon arity) where
     CMacro.BitwiseTyCon    -> Expr.App "BitwiseTyCon"    []
     CMacro.ShiftTyCon      -> Expr.App "ShiftTyCon"      []
 
-
 instance ToExpr (CMacro.TyCon args resKi) where
   toExpr = \case
     CMacro.GenerativeTyCon tc  -> Expr.App "GenerativeTyCon" [toExpr tc]

diff --git a/hs-bindgen/tests/Rust.hs b/hs-bindgen/tests/Rust.hs
@@ -58,7 +58,6 @@ callProcessCwd pwd cmd args = do
       ExitSuccess    -> return ()
       ExitFailure _r -> fail "callProcessCwd"
 
-
 getRustBindgen' :: IO FilePath
 getRustBindgen' = do
     tmpDir <- getCanonicalTemporaryDirectory
-Original file line number
+Diff line change
@@ Expand Up / @@ -33,7 +33,6 @@ main = do @@
             putStr contents
             writeFile "hs-bindgen-libclang/cbits/clang_wrappers_ffi.h" contents
     -------------------------------------------------------------------------------
     -- declarations
     -------------------------------------------------------------------------------
@@ Expand Down @@