URLが含まれてるかRegexしましょう

TextRegexURL.hs

import Text.Regex.Posix
main = do name <- getLine
	  print (checkURL name)

-- URLの正規表現を定める
urlRegex :: [Char]
urlRegex = ".*(https?|ftp)(://[-_.!~*\'()a-zA-Z0-9;/?:@&=+$,%#]+).*$"

-- t.coのURL長
tcoLength :: Int
tcoLength = length "http://t.co/xxxxxxx"

-- その文字列、正規表現ですか？
checkURL :: (Monad m, Num b, RegexLike Regex (m a)) => m a -> m b
checkURL url = if url =~ urlRegex then
  		   return () >> return tcoLength
	       else url >> return 0