@@ -1,10 +1,10 @@
11-----------------------------------------------------------------------------
22--
33-- Module : Main
4−-- Copyright : (c) Phil Freeman 2014
4+-- Copyright : (c) Hardy Jones 2014
55-- License : MIT
66--
7−-- Maintainer : Phil Freeman <paf31@cantab.net>
7+-- Maintainer : Hardy Jones <jones3.hardy@gmail.com>
88-- Stability : experimental
99-- Portability :
1010--
@@ -64,7 +64,6 @@ compile input mOutput = do
6464 tcs = filter P.isTypeClassDeclaration decls
6565 supers = sort . nub . filter (not . null) $ fmap superClasses tcs
6666 prologue = "digraph " ++ name ++ " {\n"
67− --body = intercalate "\n" (concatMap (fmap ((" " ++) . (++ ";") . show)) supers)
6867 body = intercalate "\n" (concatMap (fmap (\s -> " " ++ show s ++ ";")) supers)
6968 epilogue = "\n}"
7069 hier = prologue ++ body ++ epilogue