showPathToLangToSloc :: OptVerbose -> PathToLangToSloc -> String
showPathToLangToSloc verbose = unlines . concatMap display . sort . M.toList
  where
    display :: (FilePath, LangToSloc) -> [String]
    display (path, s) = path : map ("   " ++) (lines $ showLangToSloc verbose s)
showPathToLangToSloc :: OptVerbose -> PathToLangToSloc -> String
showPathToLangToSloc verbose = unlines . concatMap display . sort . M.toList
  where
    display :: (FilePath, LangToSloc) -> [String]
    display (path, s) = path : map ("   " ++) (lines $ showLangToSloc verbose s)
showPathToLangToSloc verbose = unlines . concatMap display . sort . M.toList
  where
    display :: (FilePath, LangToSloc) -> [String]
    display (path, s) = path : map ("   " ++) (lines $ showLangToSloc verbose s)