accept golden outputs (wrong, but useful to inspect)

Author: georgefst

plugins/hls-splice-plugin/test/testdata/TErrorExp.expected.hs

@@ -3,4 +3,4 @@ module TErrorExp where
 import Language.Haskell.TH ( tupE, litE, integerL )
 
 main :: IO ()
-main = return (42, ())
+main = return 42, ())

plugins/hls-splice-plugin/test/testdata/TErrorPat.expected.hs

@@ -3,4 +3,9 @@ module TErrorPat where
 import Language.Haskell.TH ( conP )
 
 f :: () -> ()
-f True = x
+f True
+
+
+
+
+                   = x

plugins/hls-splice-plugin/test/testdata/TQQDecl.expected.hs

@@ -1,6 +1,5 @@
 {-# LANGUAGE QuasiQuotes #-}
 module TQQDecl where
 import QQ (str)
-
 foo :: String
 foo = "foo"

plugins/hls-splice-plugin/test/testdata/TQQPat.expected.hs

@@ -3,5 +3,5 @@ module TQQPat where
 import QQ
 
 f :: String -> IO ()
-f "str" = putStrLn "is str"
+f "str"= putStrLn "is str"
 f _ = putStrLn " not str"

plugins/hls-splice-plugin/test/testdata/TQQPatError.expected.hs

@@ -3,5 +3,5 @@ module TQQPatError where
 import QQ
 
 f :: () -> IO ()
-f "str" = putStrLn "is str"
+f "str"= putStrLn "is str"
 f _ = putStrLn " not str"

plugins/hls-splice-plugin/test/testdata/TSimpleDecl.expected.hs

@@ -2,9 +2,6 @@
 {-# LANGUAGE QuasiQuotes #-}
 module TSimpleDecl where
 import Language.Haskell.TH ( mkName, clause, normalB, funD, sigD )
-
--- Foo
---  Bar
 foo :: Int
 foo = 42
 -- Bar

plugins/hls-splice-plugin/test/testdata/TSimplePat.expected.hs

@@ -3,4 +3,9 @@ module TSimplePat where
 import Language.Haskell.TH ( varP, mkName )
 
 f :: x -> x
-f x = x
+f x
+
+
+
+
+                       = x

plugins/hls-splice-plugin/test/testdata/TSimpleType.expected.hs

@@ -2,5 +2,5 @@
 module TSimpleType where
 import Language.Haskell.TH ( tupleT )
 
-main :: IO ()
+main :: IO )
 main = return ()

plugins/hls-splice-plugin/test/testdata/TTypeTypeError.expected.hs

@@ -4,5 +4,5 @@ module TTypeTypeError where
 import Language.Haskell.TH ( appT, numTyLit, litT, conT )
 import Data.Proxy ( Proxy )
 
-main :: IO (Proxy 42)
+main :: IO Proxy 42)
 main = return ()