[hoc-cvs] [hoc commit] r321 - trunk/hoc/InterfaceGenerator2

[<cod...@go...>]

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