Author: wol...@gm...
Date: Mon Sep 29 13:18:20 2008
New Revision: 321
Modified:
trunk/hoc/InterfaceGenerator2/BindingScript.hs
trunk/hoc/InterfaceGenerator2/Headers.hs
Log:
Remove some dead code
Modified: trunk/hoc/InterfaceGenerator2/BindingScript.hs
==============================================================================
--- trunk/hoc/InterfaceGenerator2/BindingScript.hs (original)
+++ trunk/hoc/InterfaceGenerator2/BindingScript.hs Mon Sep 29 13:18:20 2008
@@ -197,7 +197,7 @@
readBindingScript fn = do
f <- readFile fn
- let (either, messages) = runMessages (runParserT bindingScript () fn f)
+ let (either, _messages) = runMessages (runParserT bindingScript () fn
f)
case either of
Left err -> error (show err)
Right result -> return result
Modified: trunk/hoc/InterfaceGenerator2/Headers.hs
==============================================================================
--- trunk/hoc/InterfaceGenerator2/Headers.hs (original)
+++ trunk/hoc/InterfaceGenerator2/Headers.hs Mon Sep 29 13:18:20 2008
@@ -73,20 +73,6 @@
where
nHeaders = length headers
-orderModules :: [HeaderInfo] -> [HeaderInfo]
-
-orderModules [] = []
-orderModules mods = if null ok
- then (head notOK) : orderModules (tail notOK)
- else ok ++ orderModules notOK
- where
- (notOK, ok) = partition (\(HeaderInfo name imports decls) ->
- any (`elem` names) imports) mods
- names = map (\(HeaderInfo name imports decls) -> name) mods
- -- names | any ("Foundation." `isPrefixOf`) names'
= "Foundation.Foundation" : names'
- -- | otherwise = names'
-
-
haskellizeModuleName = firstUpper . concatMap translateChar
where firstUpper [] = []
firstUpper (x:xs) = toUpper x : upperAfterDot xs
|
