showFileResult :: Int -> (FilePath,Result) -> String
showFileResult p (f,r) = (concat . maybePad $ filterShow r) ++ " " ++ f where
    maybePad [s] = [s]
    maybePad ss = intersperse " " $ map (pad p ' ') ss
showFileResult :: Int -> (FilePath,Result) -> String
showFileResult p (f,r) = (concat . maybePad $ filterShow r) ++ " " ++ f where
    maybePad [s] = [s]
    maybePad ss = intersperse " " $ map (pad p ' ') ss
showFileResult p (f,r) = (concat . maybePad $ filterShow r) ++ " " ++ f where
    maybePad [s] = [s]
    maybePad ss = intersperse " " $ map (pad p ' ') ss