showMessage :: Message -> String
showMessage (s, l, c) = show l ++ ":" ++ show c ++ ": " ++ s
showMessage :: Message -> String
showMessage (s, l, c) = show l ++ ":" ++ show c ++ ": " ++ s
showMessage (s, l, c) = show l ++ ":" ++ show c ++ ": " ++ s