format everything

ElaraLang · Dec 7, 2023 · 99be9d7 · 99be9d7
1 parent f91994c
commit 99be9d7
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/src/JVM/Data/Convert.hs b/src/JVM/Data/Convert.hs
@@ -27,7 +27,7 @@ import Polysemy
 jloName :: QualifiedClassName
 jloName = parseQualifiedClassName "java.lang.Object"
 
-convertClassAttributes :: ConvertEff r => [Abs.ClassFileAttribute] -> Sem r [Raw.AttributeInfo]
+convertClassAttributes :: (ConvertEff r) => [Abs.ClassFileAttribute] -> Sem r [Raw.AttributeInfo]
 convertClassAttributes = traverse convertClassAttribute
   where
     convertClassAttribute (Abs.SourceFile text) = do
@@ -62,7 +62,7 @@ convert Abs.ClassFile{..} = do
                 (V.fromList attributes')
 
     let (bmIndex, finalConstantPool) = run $ runConstantPoolWith cpState $ do
-            let bootstrapAttr = BootstrapMethodsAttribute (IM.toVector  cpState.bootstrapMethods)
+            let bootstrapAttr = BootstrapMethodsAttribute (IM.toVector cpState.bootstrapMethods)
             attrNameIndex <- findIndexOf (CPUTF8Entry "BootstrapMethods")
             pure $ Raw.AttributeInfo attrNameIndex bootstrapAttr
 

diff --git a/src/JVM/Data/Convert/ConstantPool.hs b/src/JVM/Data/Convert/ConstantPool.hs
@@ -154,4 +154,4 @@ runConstantPoolWith s =
         . raiseUnder
 
 runConstantPool :: Sem (ConstantPool ': r) a -> Sem r (a, ConstantPoolState)
-runConstantPool = runConstantPoolWith mempty
+runConstantPool = runConstantPoolWith mempty
diff --git a/src/JVM/Data/Convert/Monad.hs b/src/JVM/Data/Convert/Monad.hs
@@ -8,7 +8,7 @@ import JVM.Data.Convert.ConstantPool (ConstantPool, ConstantPoolState, runConsta
 import Polysemy
 import Polysemy.Error
 
-type ConvertEff r = Members '[ConstantPool, Error CodeConverterError]r
+type ConvertEff r = Members '[ConstantPool, Error CodeConverterError] r
 
 runConvertM :: Sem (ConstantPool : Error CodeConverterError : r) a -> Sem r (Either CodeConverterError (a, ConstantPoolState))
 runConvertM = runError . runConstantPool

diff --git a/test/Util.hs b/test/Util.hs
@@ -8,8 +8,8 @@ import JVM.Data.Convert.ConstantPool (ConstantPoolState)
 import JVM.Data.Convert.Instruction (convertInstructions, fullyRunCodeConverter)
 import JVM.Data.Convert.Monad (runConvertM)
 import JVM.Data.Raw.Instruction qualified as Raw
-import Test.Hspec (HasCallStack)
 import Polysemy
+import Test.Hspec (HasCallStack)
 
 runConv :: (MonadTest m) => [Abs.Instruction] -> m ([Raw.Instruction], ConstantPoolState)
 runConv =