fmt

Author: csasarak

src/Strategy/Node/Pnpm/Types.hs

@@ -43,14 +43,14 @@ import Data.Char (isDigit)
 import Data.HashMap.Strict qualified as HashMap
 import Data.Map (Map)
 import Data.Map qualified as Map
-import Text.Read (readMaybe)
 import Data.Set qualified as Set
 import Data.String.Conversion (toString)
 import Data.Text (Text)
 import Data.Text qualified as Text
 import Data.Yaml (Object, Parser, (.!=), (.:), (.:?))
 import Data.Yaml qualified as Yaml
 import DepTypes (DepEnvironment)
+import Text.Read (readMaybe)
 
 -- | Pnpm Lockfile
 --
@@ -344,8 +344,8 @@ classifyVersion (TextLike ver) =
     Just v
       | v >= 1 && v <= 5 -> pure VersionV4Or5
       | v >= 6 && v <= 8 -> pure VersionV678
-      | v >= 9           -> pure VersionV9
-      | otherwise        -> fail $ "unsupported lockfileVersion: " <> show ver
+      | v >= 9 -> pure VersionV9
+      | otherwise -> fail $ "unsupported lockfileVersion: " <> show ver
 
 -- | Parse the shared base fields (importers + packages) common to all versions.
 parseBaseLockfile :: TextLike -> Object -> Parser PnpmLockfileBase

src/Strategy/Node/Pnpm/V4_8.hs

@@ -35,9 +35,9 @@ import Strategy.Node.Pnpm.Types (BuildGraphConfig (..), LabelingMode (LabelingOf
 parseAtKey :: Bool -> Text -> Maybe (Text, Text)
 parseAtKey slashRequired pkgKey = do
   txt <- case Text.stripPrefix "/" pkgKey of
-           Nothing | slashRequired -> Nothing
-           Nothing -> Just pkgKey
-           Just txt  -> Just txt
+    Nothing | slashRequired -> Nothing
+    Nothing -> Just pkgKey
+    Just txt -> Just txt
   let (nameAndVersion, peerDepInfo) = Text.breakOn "(" txt
   let (nameWithSlash, version) = Text.breakOnEnd "@" nameAndVersion
   case (Text.stripSuffix "@" nameWithSlash, version) of