uuagc-cabal-1.2.0.0: src/Distribution/Simple/UUAGC/AbsSyn.hs

module Distribution.Simple.UUAGC.AbsSyn where

import Options
import System.FilePath(normalise)

data AGFileOption = AGFileOption {filename :: String,
                                  fileClasses :: [String],
                                  opts :: Options}

data AGOptionsClass = AGOptionsClass {className :: String, opts' :: Options}

type AGFileOptions = [AGFileOption]

lookupFileOptions :: FilePath -> AGFileOptions -> Options
lookupFileOptions s = foldl f noOptions
    where f e (AGFileOption s' classes opt)
              | s == (normalise s')  = opt
              | otherwise            = e