doType _ s [Alias s'] = do oPutStrLn $ s++" is aliased to `"++s'++"'"
                           return True
doType _ s [Alias s'] = do oPutStrLn $ s++" is aliased to `"++s'++"'"
                           return True
doType _ s [Alias s'] = do oPutStrLn $ s++" is aliased to `"++s'++"'"
                           return True