@@ -1,10 +1,10 @@
1-----------------------------------------------------------------------------
1-----------------------------------------------------------------------------
3-- Module : Main
3-- Module : Main
4−-- Copyright : (c) Phil Freeman 2014
4+-- Copyright : (c) Hardy Jones 2014
5-- License : MIT
5-- License : MIT
7−-- Maintainer : Phil Freeman <paf31@cantab.net>
7+-- Maintainer : Hardy Jones <jones3.hardy@gmail.com>
8-- Stability : experimental
8-- Stability : experimental
9-- Portability :
9-- Portability :
@@ -64,7 +64,6 @@ compile input mOutput = do
64 tcs = filter P.isTypeClassDeclaration decls
64 tcs = filter P.isTypeClassDeclaration decls
65 supers = sort . nub . filter (not . null) $ fmap superClasses tcs
65 supers = sort . nub . filter (not . null) $ fmap superClasses tcs
66 prologue = "digraph " ++ name ++ " {\n"
66 prologue = "digraph " ++ name ++ " {\n"
67− --body = intercalate "\n" (concatMap (fmap ((" " ++) . (++ ";") . show)) supers)
68 body = intercalate "\n" (concatMap (fmap (\s -> " " ++ show s ++ ";")) supers)
67 body = intercalate "\n" (concatMap (fmap (\s -> " " ++ show s ++ ";")) supers)
69 epilogue = "\n}"
68 epilogue = "\n}"
70 hier = prologue ++ body ++ epilogue
69 hier = prologue ++ body ++ epilogue