toolFromString ::
    ToolChain -- ^ Toolchain
 -> String    -- ^ Command name
 -> FilePath  -- ^ Full command path
toolFromString toolChain name =
  let c = _toolPrefix toolChain ++ name
  in maybe c (</> c) (_toolDirectory toolChain)
toolFromString ::
    ToolChain -- ^ Toolchain
 -> String    -- ^ Command name
 -> FilePath
toolFromString toolChain name =
  let c = _toolPrefix toolChain ++ name
  in maybe c (</> c) (_toolDirectory toolChain)
toolFromString toolChain name =
  let c = _toolPrefix toolChain ++ name
  in maybe c (</> c) (_toolDirectory toolChain)