cleanup/formatter for most files

fourmolu.yaml

@@ -1,3 +1,10 @@
+comma-style: leading
+function-arrows: trailing
 haddock-style: single-line
+import-export-style: diff-friendly
 indentation: 2
+in-style: right-align
+let-style: mixed
+record-brace-space: false
+single-constraint-parens: never
 unicode: never

reopt-explore/Common.hs

@@ -1,10 +1,9 @@
-
 module Common where
 
-import           Control.Monad   (foldM)
-import           Data.IORef      (IORef, modifyIORef', newIORef, readIORef)
+import Control.Monad (foldM)
+import Data.IORef (IORef, modifyIORef', newIORef, readIORef)
 
-import           Reopt.Utils.Dir (withElfExeFilesInDir)
+import Reopt.Utils.Dir (withElfExeFilesInDir)
 
 findAllElfFilesInDirs ::
   [FilePath] ->
@@ -13,8 +12,9 @@ findAllElfFilesInDirs paths = do
   counter <- newIORef 1
   files <- foldM (withElfExeFilesInDir (recordFile counter)) [] paths
   pure $ reverse files
-  where recordFile :: IORef Int -> [(Int, FilePath)] -> FilePath -> IO [(Int, FilePath)]
-        recordFile counter ps p = do
-          index <- readIORef counter
-          modifyIORef' counter (+ 1)
-          pure $ (index, p):ps
+ where
+  recordFile :: IORef Int -> [(Int, FilePath)] -> FilePath -> IO [(Int, FilePath)]
+  recordFile counter ps p = do
+    index <- readIORef counter
+    modifyIORef' counter (+ 1)
+    pure $ (index, p) : ps