compiler/Build/Utils.hs · elk

on ab53fac help sign in

20 lines 614 B history raw

1module Build.Utils where

3import System.FilePath ((</>), replaceExtension)

4import qualified Build.Flags as Flag

6buildPath :: Flag.Flags -> FilePath -> String -> FilePath

7buildPath flags filePath ext =

8 Flag.build_dir flags </> replaceExtension filePath ext

10cachePath :: Flag.Flags -> FilePath -> String -> FilePath

11cachePath flags filePath ext =

12 Flag.cache_dir flags </> replaceExtension filePath ext

14elmo :: Flag.Flags -> FilePath -> FilePath

15elmo flags filePath =

16 cachePath flags filePath "elmo"

18elmi :: Flag.Flags -> FilePath -> FilePath

19elmi flags filePath =

20 cachePath flags filePath "elmi"