26 lines
578 B
Haskell
26 lines
578 B
Haskell
module Main where
|
|
|
|
import Data.Map as Map
|
|
import Nix.Eval
|
|
import Nix.Parser
|
|
import Nix.Pretty
|
|
import Nix.Types
|
|
import Text.PrettyPrint.ANSI.Leijen
|
|
import System.Environment
|
|
import System.IO
|
|
|
|
nix :: FilePath -> IO ()
|
|
nix path = do
|
|
res <- parseNixFile path
|
|
case res of
|
|
Failure e -> error $ "Parse failed: " ++ show e
|
|
Success n -> do
|
|
displayIO stdout $ renderPretty 0.4 80 (prettyNix n)
|
|
top <- evalExpr n (Fix (NVSet Map.empty)) -- evaluate top level
|
|
print top
|
|
|
|
main :: IO ()
|
|
main = do
|
|
[path] <- getArgs
|
|
nix path
|