Merge pull request #360 from haskellfoundation/fend

david-christiansen · web-flow · commit 26c5c12c279e · 2022-11-18T09:27:29.000+01:00
Add fend for EOL newline linting to CI
diff --git a/.fend.yaml b/.fend.yaml
@@ -0,0 +1,16 @@
+skip:
+  file:
+    - message-index/CNAME
+    - message-index/css/highlight.css
+    - message-index/js/highlight.min.js
+    - message-index/js/tablefilter.js
+
+  extension:
+    - .hi
+    - .o
+    - .png
+
+  dir:
+    - message-index/dist-newstyle
+    - message-index/_cache
+    - message-index/_site
diff --git a/.github/workflows/fend.yaml b/.github/workflows/fend.yaml
@@ -0,0 +1,11 @@
+name: fend
+
+on: [push]
+
+jobs:
+  fend:
+    name: Fend
+    runs-on: ubuntu-latest
+    steps:
+    - uses: actions/checkout@master
+    - uses: njgibbon/fend@main
diff --git a/message-index/messages/GHC-04924/example1/after/UnknownOptionsFlag.hs b/message-index/messages/GHC-04924/example1/after/UnknownOptionsFlag.hs
@@ -1,3 +1,3 @@
 {-# OPTIONS_GHC -flate-specialise #-}
 
-module UnknownOptionsFlag where
+module UnknownOptionsFlag where
diff --git a/message-index/messages/GHC-04924/example1/before/UnknownOptionsFlag.hs b/message-index/messages/GHC-04924/example1/before/UnknownOptionsFlag.hs
@@ -1,3 +1,3 @@
 {-# OPTIONS_GHC -flat-specialise #-}
 
-module UnknownOptionsFlag where
+module UnknownOptionsFlag where
diff --git a/message-index/messages/GHC-06446/example1/after/DoNotationInPattern.hs b/message-index/messages/GHC-06446/example1/after/DoNotationInPattern.hs
@@ -3,4 +3,4 @@ module DoNotationInPattern where
 f :: Monad m => m Int -> m Bool
 f m = do
     v <- m
-    return $ v == 2
+    return $ v == 2
diff --git a/message-index/messages/GHC-09009/example1/after/IllegalRole.hs b/message-index/messages/GHC-09009/example1/after/IllegalRole.hs
@@ -3,4 +3,4 @@
 module IllegalRole where
 
 type role A phantom
-data A a = A
+data A a = A
diff --git a/message-index/messages/GHC-09009/example1/before/IllegalRole.hs b/message-index/messages/GHC-09009/example1/before/IllegalRole.hs
@@ -3,4 +3,4 @@
 module IllegalRole where
 
 type role A pantom
-data A a = A
+data A a = A
diff --git a/message-index/messages/GHC-11861/example1/after/Example.hs b/message-index/messages/GHC-11861/example1/after/Example.hs
@@ -1,4 +1,4 @@
 module Example where
 
 example = foo
-  where foo = ' '
+  where foo = ' '
diff --git a/message-index/messages/GHC-11861/example1/before/Example.hs b/message-index/messages/GHC-11861/example1/before/Example.hs
@@ -1,4 +1,4 @@
 module Example where
 
 example = foo
-  where foo = ''
+  where foo = ''
diff --git a/message-index/messages/GHC-20125/index.md b/message-index/messages/GHC-20125/index.md
@@ -7,4 +7,4 @@ flag: -Wmissing-fields
 ---
 When constructing a record using labeled fields, all fields which are not explicitly stated are implicitly initialized with a bottom term. This means that accessing the field results in a panic.
 
-If a *strict* field is missing, the error [GHC-95909](/messages/GHC-95909/index.html) is emitted instead.
+If a *strict* field is missing, the error [GHC-95909](/messages/GHC-95909/index.html) is emitted instead.
diff --git a/message-index/messages/GHC-45696/example1/after/IfThenElseInPattern.hs b/message-index/messages/GHC-45696/example1/after/IfThenElseInPattern.hs
@@ -7,4 +7,4 @@ f a b = case (a, b) of
     _ -> False
 
 f' :: Bool -> String -> Bool
-f' a b = (a && b == "something") || (not a && b == "something else")
+f' a b = (a && b == "something") || (not a && b == "something else")
diff --git a/message-index/messages/GHC-45696/example1/before/IfThenElseInPattern.hs b/message-index/messages/GHC-45696/example1/before/IfThenElseInPattern.hs
@@ -3,4 +3,4 @@ module IfThenElseInPattern where
 f :: Bool -> String -> Bool
 f a b = case a of
     (if a then b == "something" else b == "something else") -> True
-    _ -> False
+    _ -> False
diff --git a/message-index/messages/GHC-51179/index.md b/message-index/messages/GHC-51179/index.md
@@ -17,4 +17,4 @@ is equivalent to
 \x -> case x of {"1" -> 1; "2" -> 2}
 ```
 
-When the extension is missing, the expression is interpreted as a regular lambda expression that is incorrectly formatted.
+When the extension is missing, the expression is interpreted as a regular lambda expression that is incorrectly formatted.
diff --git a/message-index/messages/GHC-58481/example2/after/OpaqueParseFail1.hs b/message-index/messages/GHC-58481/example2/after/OpaqueParseFail1.hs
@@ -1,4 +1,4 @@
 module OpaqueParseFail1 where
 
 f = id
-{-# OPAQUE f #-}
+{-# OPAQUE f #-}
diff --git a/message-index/messages/GHC-58481/example2/before/OpaqueParseFail1.hs b/message-index/messages/GHC-58481/example2/before/OpaqueParseFail1.hs
@@ -1,4 +1,4 @@
 module OpaqueParseFail1 where
 
 f = id
-{-# OPAQUE[1] f #-}
+{-# OPAQUE[1] f #-}
diff --git a/message-index/messages/GHC-58481/example3/after/Data.hs b/message-index/messages/GHC-58481/example3/after/Data.hs
@@ -6,4 +6,4 @@ x :: Int
 x = 42
 
 static :: Q Exp
-static = [| x |]
+static = [| x |]
diff --git a/message-index/messages/GHC-58481/example3/before/NoHeader.hs b/message-index/messages/GHC-58481/example3/before/NoHeader.hs
@@ -1,3 +1,3 @@
 module NoHeader where
-    
-f = $(static)
+
+f = $(static)
diff --git a/message-index/messages/GHC-58481/index.md b/message-index/messages/GHC-58481/index.md
@@ -11,4 +11,4 @@ GHC contains many more explicit parsing errors with more verbose descriptions of
 
 There may be many different reasons why error 58481 was given, ranging from an incorrect syntax that needs additional Haskell Language Extensions, to a expression mistakenly put in the same line as other.
 
-Below are some examples of code that generate this generic parsing error. Please be encouraged to report more or contribute via [error-messages github](https://github.com/haskell/error-messages).
+Below are some examples of code that generate this generic parsing error. Please be encouraged to report more or contribute via [error-messages github](https://github.com/haskell/error-messages).
diff --git a/message-index/messages/GHC-69925/example1/before/IllegalUnboxedString.hs b/message-index/messages/GHC-69925/example1/before/IllegalUnboxedString.hs
@@ -7,4 +7,4 @@ import GHC.Prim
 g :: Addr# -> Bool
 g y = case y of
     "a"# -> True
-    _    -> False
+    _    -> False
diff --git a/message-index/messages/GHC-75356/example1/after/HiddenCtrs.hs b/message-index/messages/GHC-75356/example1/after/HiddenCtrs.hs
@@ -1,3 +1,3 @@
 module HiddenCtrs (TypeWithoutVisibleCtrs) where
 
-data TypeWithoutVisibleCtrs = Ctr1 Int | Ctr2 | Ctr3 Bool Bool
+data TypeWithoutVisibleCtrs = Ctr1 Int | Ctr2 | Ctr3 Bool Bool
diff --git a/message-index/messages/GHC-75356/example1/before/HiddenCtrs.hs b/message-index/messages/GHC-75356/example1/before/HiddenCtrs.hs
@@ -1,3 +1,3 @@
 module HiddenCtrs (TypeWithoutVisibleCtrs) where
 
-data TypeWithoutVisibleCtrs = Ctr1 Int | Ctr2 | Ctr3 Bool Bool
+data TypeWithoutVisibleCtrs = Ctr1 Int | Ctr2 | Ctr3 Bool Bool
diff --git a/message-index/messages/GHC-75356/index.md b/message-index/messages/GHC-75356/index.md
@@ -6,4 +6,4 @@ flag: -Wdodgy-imports
 introduced: 9.6.1
 ---
 
-When exporting identifiers from a module, all in-scope constructors (for a type) or the in-scope methods (for a typeclass) can also be exported with the `T(..)` syntax. However, if `T` does not have in-scope constructors - the type is being re-exported and does not have its constructors imported) or it has no constructors - then this export item suggests that the programmer intended for `T` to have in-scope constructors/methods when it has none.
+When exporting identifiers from a module, all in-scope constructors (for a type) or the in-scope methods (for a typeclass) can also be exported with the `T(..)` syntax. However, if `T` does not have in-scope constructors - the type is being re-exported and does not have its constructors imported) or it has no constructors - then this export item suggests that the programmer intended for `T` to have in-scope constructors/methods when it has none.
diff --git a/message-index/messages/GHC-84077/example1/after/MissingSpaceTypeApplication.hs b/message-index/messages/GHC-84077/example1/after/MissingSpaceTypeApplication.hs
@@ -3,4 +3,4 @@
  module MissingSpaceTypeApplication where
 
  f :: (forall a. a -> b) -> (Int -> b)
- f x = x @Int
+ f x = x @Int
diff --git a/message-index/messages/GHC-84077/example1/before/MissingSpaceTypeApplication.hs b/message-index/messages/GHC-84077/example1/before/MissingSpaceTypeApplication.hs
@@ -3,4 +3,4 @@
  module MissingSpaceTypeApplication where
 
  f :: (forall a. a -> b) -> (Int -> b)
- f x = x@Int
+ f x = x@Int
diff --git a/message-index/messages/GHC-84077/example2/after/Example.hs b/message-index/messages/GHC-84077/example2/after/Example.hs
@@ -4,4 +4,4 @@ module Example where
 g :: (Num a) => a -> a
 g x = x * 2
 
-f = g @Int
+f = g @Int
diff --git a/message-index/messages/GHC-84077/example2/before/Example.hs b/message-index/messages/GHC-84077/example2/before/Example.hs
@@ -4,4 +4,4 @@ module Example where
 g :: (Num a) => a -> a
 g x = x * 2
 
-f = g@Int
+f = g@Int
diff --git a/message-index/messages/GHC-84077/index.md b/message-index/messages/GHC-84077/index.md
@@ -7,4 +7,4 @@ extension: TypeApplications
 ---
 
 
-Type application syntax requires a space before `@`. This is described in the [documentation](https://ghc.gitlab.haskell.org/ghc/doc/users_guide/exts/type_applications.html#visible-type-application) of the visible type application feature.
+Type application syntax requires a space before `@`. This is described in the [documentation](https://ghc.gitlab.haskell.org/ghc/doc/users_guide/exts/type_applications.html#visible-type-application) of the visible type application feature.
diff --git a/message-index/messages/GHC-87429/example1/after/IllegalDatatypeContext.hs b/message-index/messages/GHC-87429/example1/after/IllegalDatatypeContext.hs
@@ -3,4 +3,4 @@ module IllegalDatatypeContext where
 data D a = D a
 
 f :: (Show a) => D a -> IO ()
-f (D d) = putStrLn (show d)
+f (D d) = putStrLn (show d)
diff --git a/message-index/messages/GHC-87429/example1/before/IllegalDatatypeContext.hs b/message-index/messages/GHC-87429/example1/before/IllegalDatatypeContext.hs
@@ -1,3 +1,3 @@
 module IllegalDatatypeContext where
 
-data (Show a) => D a = D a
+data (Show a) => D a = D a
diff --git a/message-index/messages/GHC-87429/example1/index.md b/message-index/messages/GHC-87429/example1/index.md
@@ -13,4 +13,4 @@ IllegalDatatypeContext.hs:5:6: error: [GHC-87429]
   |
 5 | data (Show a) => D a = D a
   |      ^^^^^^^
-```
+```
diff --git a/message-index/messages/GHC-87429/example2/after/IllegalDatatypeContext.hs b/message-index/messages/GHC-87429/example2/after/IllegalDatatypeContext.hs
@@ -2,4 +2,4 @@
 module IllegalDatatypeContext where
 
 data D a where
-    ShowReadD :: (Show a, Read a) => a -> D a
+    ShowReadD :: (Show a, Read a) => a -> D a
diff --git a/message-index/messages/GHC-87429/example2/before/IllegalDatatypeContext.hs b/message-index/messages/GHC-87429/example2/before/IllegalDatatypeContext.hs
@@ -1,3 +1,3 @@
 module IllegalDatatypeContext where
 
-data (Show a, Read a) => D a = D a
+data (Show a, Read a) => D a = D a
diff --git a/message-index/messages/GHC-90177/example1/after/Foo.hs b/message-index/messages/GHC-90177/example1/after/Foo.hs
@@ -6,4 +6,4 @@ class IsAFoo x where
     convertToFoo :: x -> Foo
 
 instance IsAFoo Foo where
-    convertToFoo = id
+    convertToFoo = id
diff --git a/message-index/messages/GHC-90177/example1/after/OrphanInstance.hs b/message-index/messages/GHC-90177/example1/after/OrphanInstance.hs
@@ -1,3 +1,3 @@
 module OrphanInstance where
 
-import Foo
+import Foo
diff --git a/message-index/messages/GHC-90177/example1/before/Foo.hs b/message-index/messages/GHC-90177/example1/before/Foo.hs
@@ -3,4 +3,4 @@ module Foo where
 data Foo = Foo
 
 class IsAFoo x where
-    convertToFoo :: x -> Foo
+    convertToFoo :: x -> Foo
diff --git a/message-index/messages/GHC-90177/example1/before/OrphanInstance.hs b/message-index/messages/GHC-90177/example1/before/OrphanInstance.hs
@@ -3,4 +3,4 @@ module OrphanInstance where
 import Foo
 
 instance IsAFoo Foo where
-    convertToFoo = id
+    convertToFoo = id
diff --git a/message-index/messages/GHC-99623/example1/after/HiddenConstructors.hs b/message-index/messages/GHC-99623/example1/after/HiddenConstructors.hs
@@ -2,4 +2,4 @@ module HiddenConstructors ( TypeWithoutVisibleCtrs, TypeWithNoCtrs ) where
 
 data TypeWithoutVisibleCtrs = Ctr1 Int | Ctr2 | Ctr3 Bool Bool
 
-data TypeWithNoCtrs
+data TypeWithNoCtrs
diff --git a/message-index/messages/GHC-99623/example1/before/HiddenConstructors.hs b/message-index/messages/GHC-99623/example1/before/HiddenConstructors.hs
@@ -2,4 +2,4 @@ module HiddenConstructors ( TypeWithoutVisibleCtrs, TypeWithNoCtrs ) where
 
 data TypeWithoutVisibleCtrs = Ctr1 Int | Ctr2 | Ctr3 Bool Bool
 
-data TypeWithNoCtrs
+data TypeWithNoCtrs

Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,3 @@`
`1`	`1`	`{-# OPTIONS_GHC -flate-specialise #-}`
`2`	`2`
`3`		`-module UnknownOptionsFlag where`
	`3`	`+module UnknownOptionsFlag where`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,3 @@`
`1`	`1`	`{-# OPTIONS_GHC -flat-specialise #-}`
`2`	`2`
`3`		`-module UnknownOptionsFlag where`
	`3`	`+module UnknownOptionsFlag where`