2018-03-30 23:08:38 +02:00
|
|
|
module Nix where
|
|
|
|
|
|
|
|
import qualified Data.Map.Lazy as Map
|
|
|
|
import Nix.Builtins
|
|
|
|
import Nix.Eval
|
2018-03-31 08:00:06 +02:00
|
|
|
import Nix.Expr.Types.Annotated (NExprLoc, stripAnnotation)
|
2018-03-30 23:08:38 +02:00
|
|
|
import Nix.Lint
|
2018-03-30 23:25:03 +02:00
|
|
|
import Nix.Monad
|
2018-03-30 23:08:38 +02:00
|
|
|
import Nix.Monad.Instance
|
|
|
|
import Nix.Utils
|
|
|
|
|
|
|
|
-- | Evaluate a nix expression in the default context
|
2018-03-31 08:00:06 +02:00
|
|
|
evalTopLevelExpr :: MonadNixEnv m
|
|
|
|
=> Maybe FilePath -> NExprLoc -> m (NValueNF m)
|
2018-03-30 23:08:38 +02:00
|
|
|
evalTopLevelExpr mdir expr = do
|
2018-03-30 23:55:30 +02:00
|
|
|
base <- baseEnv
|
|
|
|
(normalForm =<<) $ pushScopes base $ case mdir of
|
2018-03-31 08:00:06 +02:00
|
|
|
Nothing -> contextualExprEval expr
|
2018-03-30 23:55:30 +02:00
|
|
|
Just dir -> do
|
|
|
|
traceM $ "Setting __cwd = " ++ show dir
|
|
|
|
ref <- valueRef $ NVLiteralPath dir
|
2018-03-31 08:00:06 +02:00
|
|
|
pushScope (Map.singleton "__cwd" ref) (contextualExprEval expr)
|
2018-03-30 23:08:38 +02:00
|
|
|
|
2018-03-31 08:00:06 +02:00
|
|
|
evalTopLevelExprIO :: Maybe FilePath -> NExprLoc -> IO (NValueNF (Cyclic IO))
|
|
|
|
evalTopLevelExprIO mdir = runCyclicIO . evalTopLevelExpr mdir
|
2018-03-30 23:08:38 +02:00
|
|
|
|
2018-03-31 08:00:06 +02:00
|
|
|
-- informativeEvalTopLevelExprIO :: Maybe FilePath -> NExpr
|
|
|
|
-- -> IO (NValueNF (Cyclic IO))
|
|
|
|
-- informativeEvalTopLevelExprIO mdir expr =
|
|
|
|
-- runReaderT (runCyclic (evalTopLevelExpr mdir expr)) []
|
|
|
|
|
|
|
|
tracingEvalTopLevelExprIO :: Maybe FilePath -> NExprLoc
|
2018-03-30 23:08:38 +02:00
|
|
|
-> IO (NValueNF (Cyclic IO))
|
|
|
|
tracingEvalTopLevelExprIO mdir expr = do
|
2018-03-30 23:55:30 +02:00
|
|
|
traced <- tracingExprEval expr
|
|
|
|
case mdir of
|
|
|
|
Nothing ->
|
|
|
|
runCyclicIO (normalForm =<< (`pushScopes` traced) =<< baseEnv)
|
2018-03-30 23:08:38 +02:00
|
|
|
Just dir -> do
|
|
|
|
traceM $ "Setting __cwd = " ++ show dir
|
2018-03-30 23:55:30 +02:00
|
|
|
ref <- runCyclicIO (valueRef $ NVLiteralPath dir)
|
|
|
|
let m = Map.singleton "__cwd" ref
|
|
|
|
runCyclicIO (baseEnv >>= (`pushScopes` pushScope m traced)
|
|
|
|
>>= normalForm)
|
2018-03-30 23:08:38 +02:00
|
|
|
|
2018-03-31 08:00:06 +02:00
|
|
|
lintExpr :: NExprLoc -> IO ()
|
|
|
|
lintExpr expr =
|
|
|
|
runCyclicIO (baseEnv >>= (`pushScopes` checkExpr (stripAnnotation expr)))
|