tool ::
    ToolChain               -- ^ Toolchain
 -> (ToolChain :-> String)  -- ^ Toolchain accessor
 -> FilePath                -- ^ Full command path
tool toolChain getter = toolFromString toolChain (get getter toolChain)
tool ::
    ToolChain               -- ^ Toolchain
 -> (ToolChain :-> String)  -- ^ Toolchain accessor
 -> FilePath
tool toolChain getter = toolFromString toolChain (get getter toolChain)
tool toolChain getter = toolFromString toolChain (get getter toolChain)