prettyPrintString :: String -> String -> String -> String -> String
prettyPrintString indentation time ty msg =
    indentation ++ "[" ++ time ++ "][" ++ ty ++ "] " ++ msg
prettyPrintString :: String -> String -> String -> String -> String
prettyPrintString indentation time ty msg =
    indentation ++ "[" ++ time ++ "][" ++ ty ++ "] " ++ msg
prettyPrintString indentation time ty msg =
    indentation ++ "[" ++ time ++ "][" ++ ty ++ "] " ++ msg