clean up lens

commercialhaskell · Feb 26, 2018 · e8c53a8 · e8c53a8
1 parent 6636555
commit e8c53a8
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/src/Stack/Types/Config.hs b/src/Stack/Types/Config.hs
@@ -1199,11 +1199,8 @@ platformOnlyRelDir = do
     parseRelDir (Distribution.Text.display platform ++ platformVariantSuffix platformVariant)
 
 -- | Directory containing immutable cache
-
 immutableDir :: (MonadThrow m, MonadReader env m, HasEnvConfig env) => m (Path Abs Dir)
-immutableDir = do
-    root  <- view stackRootL
-    return $ root  </> $(mkRelDir "immutable")
+immutableDir = liftM (</> $(mkRelDir "immutable")) (view stackRootL)
 
 -- | Directory containing snapshots
 snapshotsDir :: (MonadReader env m, HasEnvConfig env, MonadThrow m) => m (Path Abs Dir)