@@ -8,8 +8,7 @@ module Obelisk.Command.Run where
88
99import Control.Arrow ((&&&))
1010import Control.Exception (Exception, bracket)
11−import qualified Control.Lens as Lens
12−import Control.Lens (ifor)
11+import Control.Lens (ifor, (.~), (&))
1312import Control.Monad (filterM, unless)
1413import Control.Monad.Except (runExceptT, throwError)
1514import Control.Monad.IO.Class (liftIO)
@@ -109,8 +108,8 @@ profile profileBaseName = withProjectRoot "." $ \root -> do
109108 , " buildInputs = [ (profiled.ghc.ghcWithPackages (p: [ p.backend p.frontend])) ];"
110109 , "} \"ghc -x hs -prof -fno-prof-auto ${exeSource} -o $out\")" ]
111110 exePath <- nixCmd $ NixCmd_Build $ def
112− Lens.& nixBuildConfig_outLink Lens..~ OutLink_None
113− Lens.& nixCmdConfig_target Lens..~ Target
111+ & nixBuildConfig_outLink .~ OutLink_None
112+ & nixCmdConfig_target .~ Target
114113 { _target_path = Nothing
115114 , _target_attr = Nothing
116115 , _target_expr = Just nixBuildExpr }