hackage-publish-0.1.0.0: src/Shh/Nix.hs

module Shh.Nix (loadExeNix) where

import Language.Haskell.TH
import Shh.Internal (rawExe)
import System.Which (staticWhichNix)

-- Template Haskell function that combines staticWhichNix with shh to create
-- a Cmd function using the executable's static Nix store path at compile time.
loadExeNix :: String -> String -> Q [Dec]
loadExeNix fnName exeName = do
  pathExp <- staticWhichNix exeName
  case pathExp of
    LitE (StringL nixStorePath) -> rawExe fnName nixStorePath
    _ -> fail $ "staticWhichNix didn't return a string literal for " ++ exeName