@@ -18,7 +18,6 @@ import Control.Applicative
1818import Control.Monad
1919import Control.Monad.Writer
2020import Control.Arrow (first)
21−import Data.Function (on)
2221import Data.List
2322import Data.Maybe (fromMaybe)
2423import Data.Version (showVersion)
@@ -113,7 +112,7 @@ renderModule showHierarchy mdl@(P.Module moduleName _ exps) =
113112 spacer
114113
115114renderTopLevel :: Maybe [P.DeclarationRef] -> [P.Declaration] -> Docs
116−renderTopLevel exps decls = forM_ (sortBy (compare `on` getName) decls) $ \decl -> do
115+renderTopLevel exps decls = forM_ decls $ \decl -> do
117116 traverse_ (headerLevel 4) (ticks `fmap` getDeclarationTitle decl)
118117 spacer
119118 renderDeclaration exps decl
@@ -181,19 +180,19 @@ renderDeclaration _ _ = return ()
181180renderComments :: [P.Comment] -> Docs
182181renderComments cs = do
183182 let raw = concatMap toLines cs
184−
183+
185184 if all hasPipe raw
186185 then atIndent 0 . unlines . map stripPipes $ raw
187186 else atIndent 4 $ unlines raw
188−
187+
189188 unless (null raw) spacer
190189 where
191190
192191 toLines (P.LineComment s) = [s]
193192 toLines (P.BlockComment s) = lines s
194−
193+
195194 hasPipe s = case dropWhile (== ' ') s of { ('|':_) -> True; _ -> False }
196−
195+
197196 stripPipes = dropPipe . dropWhile (== ' ')
198197
199198 dropPipe ('|':' ':s) = s