hnix-store-aterm-0.1.0.0: pretty-derivation/Main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Data.Attoparsec.Text.Lazy (Result(..))
import Data.Attoparsec.Text.Lazy qualified
import Data.Text.Lazy.IO qualified
import Text.Show.Pretty qualified

import System.Nix.StorePath
import System.Nix.Derivation.ATerm qualified

main :: IO ()
main = do
    text <- Data.Text.Lazy.IO.getContents
    case
      Data.Attoparsec.Text.Lazy.parse
        (System.Nix.Derivation.ATerm.parseTraditionalDerivation
          (StoreDir "/nix/store"))
        text
      of
        Fail _ _ err      -> fail err
        Done _ derivation -> Text.Show.Pretty.pPrint derivation