better ordering on display of seen typereps
commit4970e81bb38f58c8c447b2510dae209a97d04987
authorMark Wotton <mwotton@gmail.com>
dateWed 18 Nov 2020, 16:09 (6 years ago)
parent7f36587
src/Roboservant/Direct.hs+1−1
@@ -126,7 +126,7 @@ fuzz server Config{..} checker = handle (pure . Just . formatException) $ do
126126 mapM_ print (Set.toList $ Set.fromList $ map apiOffset path)
127127 putStrLn ""
128128 putStrLn "types in stash"
129− mapM_ print (map (\x -> (fst x, NEL.length (snd x))) . sortOn fst . Map.toList $ stash)
129+ mapM_ print (map (\x -> (fst x, NEL.length (snd x))) . sortOn (show . fst) . Map.toList $ stash)
130130
131131 -- evaluateCoverage :: FuzzState -> m ()
132132 evaluateCoverage f@FuzzState{..}