Fixed formatting for fourmolu check in CI (#354)

Author: bwbush

leios-trace-verifier/hs-src/app/Main.hs

@@ -34,8 +34,8 @@ main =
         . decodeJSONL
         <$> BSL.readFile logFile
     hPutStrLn stderr $ "Applying " <> show (fst result) <> " actions"
-    unless (snd result == "ok")
-      $ do
+    unless (snd result == "ok") $
+      do
         putStrLn . T.unpack $ snd result
         exitFailure
 

leios-trace-verifier/hs-src/test/Spec.hs

@@ -5,7 +5,6 @@
 
 module Main where
 
-import qualified Paths_trace_parser as Paths
 import Control.Monad (forM_)
 import Data.ByteString.Lazy as BSL (readFile)
 import Data.List (sort)
@@ -16,6 +15,7 @@ import LeiosConfig (Config (..))
 import LeiosEvents (decodeJSONL)
 import LeiosTopology (LocationKind (COORD2D), Node (..), NodeInfo (..), NodeName (..), Topology (..))
 import Lib (verifyTrace)
+import qualified Paths_trace_parser as Paths
 import System.Directory (listDirectory)
 import System.FilePath ((</>))
 import Test.Hspec (Expectation, SpecWith, describe, hspec, it, shouldBe, shouldNotBe)