diff --git a/compiler/src/Parse/Variable.hs b/compiler/src/Parse/Variable.hs
index 902960bf..b7de58a1 100644
--- a/compiler/src/Parse/Variable.hs
+++ b/compiler/src/Parse/Variable.hs
@@ -27,7 +27,7 @@ import Data.Name qualified as Name
 import Data.Set qualified as Set
 import Data.Word (Word8)
 import Foreign.Ptr (Ptr, plusPtr)
-import GHC.Exts (Char (C#), Int#, chr#, uncheckedIShiftL#, word8ToWord#, word2Int#, (+#), (-#))
+import GHC.Exts (Char (C#), Int#, chr#, uncheckedIShiftL#, word2Int#, word8ToWord#, (+#), (-#))
 import GHC.Word (Word8 (W8#))
 import Parse.Primitives (Col, Parser, Row, unsafeIndex)
 import Parse.Primitives qualified as P
diff --git a/tests/Parse/DeclSpec.hs b/tests/Parse/DeclSpec.hs
index ed9406ea..40c17482 100644
--- a/tests/Parse/DeclSpec.hs
+++ b/tests/Parse/DeclSpec.hs
@@ -21,16 +21,16 @@ spec = do
 
     it "Value names can contain non-ascii characters" $ do
       parse "vålue = 1"
-    
+
     it "Value names can be only non-ascii characters" $ do
       parse "æøå = 1"
 
 parse :: BS.ByteString -> IO ()
 parse str =
-   P.fromByteString
-      (P.specialize (\_ row col -> DeclError row col) declaration)
-      (OtherError "fromByteString failed")
-      str
+  P.fromByteString
+    (P.specialize (\_ row col -> DeclError row col) declaration)
+    (OtherError "fromByteString failed")
+    str
     `shouldSatisfy` valid
 
 valid :: Either x y -> Bool