ghc/driver/Utils.hs

   1 module Utils where
   2
   3 prefixMatch :: Eq a => [a] -> [a] -> Bool
   4 prefixMatch [] _str = True
   5 prefixMatch _pat [] = False
   6 prefixMatch (p:ps) (s:ss) | p == s    = prefixMatch ps ss
   7                           | otherwise = False
   8
   9 suffixMatch :: String -> String -> Bool
  10 suffixMatch pat str = prefixMatch (reverse pat) (reverse str)