X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fext-core%2FLanguage%2FCore%2FParseGlue.hs;fp=utils%2Fext-core%2FParseGlue.hs;h=3743792ea5a45ad1509364ce615ac75e98cf1fe5;hp=2e196c071e3a0e7ab83b1b9a1a39446ba0751aaa;hb=b84b5969798530dbf5be9b8bb795b77e5dfbf042;hpb=70f16d3fb8f21fbd198151d59c4ab29023dd9fda

diff --git a/utils/ext-core/ParseGlue.hs b/utils/ext-core/Language/Core/ParseGlue.hs
similarity index 64%
rename from utils/ext-core/ParseGlue.hs
rename to utils/ext-core/Language/Core/ParseGlue.hs
index 2e196c0..3743792 100644
--- a/utils/ext-core/ParseGlue.hs
+++ b/utils/ext-core/Language/Core/ParseGlue.hs
@@ -1,4 +1,4 @@
-module ParseGlue where
+module Language.Core.ParseGlue where
 
 import Encoding
 
@@ -60,28 +60,3 @@ data Token =
  | TKstring String 
  | TKchar Char 
  | TKEOF
-
--- ugh
-splitModuleName mn = 
-   let decoded = zDecodeString mn
-       -- Triple ugh.
-       -- We re-encode the individual parts so that:
-       -- main:Foo_Bar.Quux.baz
-       -- prints as:
-       -- main:FoozuBarziQuux.baz
-       -- and not:
-       -- main:Foo_BarziQuux.baz
-       parts   = map zEncodeString $ filter (notElem '.') $ groupBy 
-                   (\ c1 c2 -> c1 /= '.' && c2 /= '.') 
-                 decoded in
-     (take (length parts - 1) parts, last parts)
-
-
-
-
-
-
-
-
-
-