-----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.17 2000/12/04 16:42:14 rrt Exp $
+-- $Id: DriverState.hs,v 1.18 2000/12/05 12:09:43 sewardj Exp $
--
-- Settings for the driver
--
GLOBAL_VAR(v_Ways, [] ,[WayName])
-allowed_combinations way = ways `elem` combs
- where -- the sub-lists must be ordered according to WayName, because findBuildTag sorts them
+allowed_combination way = way `elem` combs
+ where -- the sub-lists must be ordered according to WayName,
+ -- because findBuildTag sorts them
combs = [ [WayProf,WayUnreg], [WayProf,WaySMP] ]
findBuildTag :: IO [String] -- new options
writeIORef v_Build_tag (wayTag details)
return (wayOpts details)
- ws -> if not allowed_combination ws
+ ws -> if not (allowed_combination ws)
then throwDyn (OtherError $
"combination not supported: " ++
foldr1 (\a b -> a ++ '/':b)
-----------------------------------------------------------------------------
--- $Id: TmpFiles.hs,v 1.9 2000/12/04 16:42:14 rrt Exp $
+-- $Id: TmpFiles.hs,v 1.10 2000/12/05 12:09:43 sewardj Exp $
--
-- Temporary file management
--
#ifndef mingw32_TARGET_OS
writeIORef v_TmpDir dir
#endif
- )
+ )
cleanTempFiles :: Bool -> IO ()
cleanTempFiles verbose = do
mapAccumL, mapAccumR, mapAccumB, foldl2, count,
-- comparisons
- thenCmp, cmpList, prefixMatch, postfixMatch,
+ thenCmp, cmpList, prefixMatch, suffixMatch,
-- strictness
seqList, ($!),
prefixMatch (p:ps) (s:ss) | p == s = prefixMatch ps ss
| otherwise = False
-postfixMatch :: Eq a => [a] -> [a] -> Bool
-postfixMatch pat str = prefixMatch (reverse pat) (reverse str)
+suffixMatch :: Eq a => [a] -> [a] -> Bool
+suffixMatch pat str = prefixMatch (reverse pat) (reverse str)
\end{code}
%************************************************************************