Skip to content

Instantly share code, notes, and snippets.

View m1dnight's full-sized avatar

Christophe De Troyer m1dnight

View GitHub Profile
{
module Main (main) where
}
%wrapper "monadUserState"
$digit = 0-9 -- digits
$alpha = [a-zA-Z] -- alphabetic characters
-- Each token has a function on the RHS that is a function (String ->
@m1dnight
m1dnight / pop3.hs
Created January 11, 2016 13:23
Minimal POP3 client in Haskell
module Main where
import Network.Socket hiding (send, sendTo, recv, recvFrom)
import Network.Socket.ByteString (send, recv)
import qualified Data.ByteString.Char8 as B8
main :: IO()
main = client' 110
module Parse where
import Text.Parsec
import Text.Parsec.Combinator
import Syntax
import Data.List
----------------------
-- Main entry point --
----------------------
import requests
import json
from requests.auth import HTTPBasicAuth
####################################################################################
# Author: Christophe De Troyer #
# Created: 09/10/2015 #
# Version: 1.0 #
# #
# Description: #

Keybase proof

I hereby claim:

  • I am m1dnight on github.
  • I am cdetroye (https://keybase.io/cdetroye) on keybase.
  • I have a public key whose fingerprint is 2CC3 A6B2 5121 4824 96A3 7410 30AE DA18 9BBA E2C2

To claim this, I am signing this object: