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