module Files.CymakePath (getCymake, cymakeGreeting, cymakeVersion) where
import Data.Version (showVersion)
import System.FilePath ((</>))
import Paths_curry_frontend
cymakeGreeting :: String
cymakeGreeting :: String
cymakeGreeting = "This is the Curry front end, version " String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
cymakeVersion
cymakeVersion :: String
cymakeVersion :: String
cymakeVersion = Version -> String
showVersion Version
version
getCymake :: IO String
getCymake :: IO String
getCymake = do
String
cymakeDir <- IO String
getBinDir
String -> IO String
forall (m :: * -> *) a. Monad m => a -> m a
return (String -> IO String) -> String -> IO String
forall a b. (a -> b) -> a -> b
$ String
cymakeDir String -> String -> String
</> "curry-frontend"