Skip to content

Commit 1f90760

Browse files
committed
Value.Equal: m cosmetic
1 parent 302af6d commit 1f90760

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/Nix/Value/Equal.hs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@ import Control.Monad.Trans.Class
3131
import Control.Monad.Trans.Except
3232
import Data.Align
3333
import Data.Functor.Identity
34-
import qualified Data.HashMap.Lazy as M
34+
import qualified Data.HashMap.Lazy as HashMap.Lazy
3535
import Data.These
3636
import Nix.Atoms
3737
import Nix.Frames
@@ -73,7 +73,7 @@ alignEq :: (Align f, Traversable f) => (a -> b -> Bool) -> f a -> f b -> Bool
7373
alignEq eq fa fb = runIdentity $ alignEqM (\x y -> Identity (eq x y)) fa fb
7474

7575
isDerivationM :: Monad m => (t -> m (Maybe NixString)) -> AttrSet t -> m Bool
76-
isDerivationM f m = case M.lookup "type" m of
76+
isDerivationM f m = case HashMap.Lazy.lookup "type" m of
7777
Nothing -> pure False
7878
Just t -> do
7979
mres <- f t
@@ -127,7 +127,7 @@ compareAttrSetsM f eq lm rm = do
127127
isDerivationM f lm >>= \case
128128
True -> isDerivationM f rm >>= \case
129129
True
130-
| Just lp <- M.lookup "outPath" lm, Just rp <- M.lookup "outPath" rm -> eq
130+
| Just lp <- HashMap.Lazy.lookup "outPath" lm, Just rp <- HashMap.Lazy.lookup "outPath" rm -> eq
131131
lp
132132
rp
133133
_ -> compareAttrs

0 commit comments

Comments
 (0)