SHARE
TWEET

Functions.hs

a guest Dec 2nd, 2013 10 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. module Functions where
  2.         -- cabal install Crypto
  3.         import Data.Time
  4.         import Crypto.HASH
  5.        
  6.         -- Get Date
  7.         getTime :: IO UTCTime
  8.         getTime = do
  9.                         let c = getCurrentTime
  10.                         -- llamar a Socket con c para enviar datos desde aquĆ­
  11.                         return()
  12.        
  13.         -- Get MD5
  14.         --md5 returns a 4-tuple of 32bitWords, it is necessary convert it to String by meaning of concatTuplMD5 and after send it by socket to irc.freenode.net
  15.         --getMD5 :: (MD5 a) => a -> IO String
  16.         --getMD5 token = --Enviar (concatTuplMD5 (md5 token))
  17.        
  18.         concatTuplMD5 :: ABCD -> String
  19.         concatTuplMD5 [] = ""
  20.         concatTuplMD5 (x:xs) = (show x) ++ (concatTuplMD5 xs)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top