nkpart

{-# LANGUAGE ScopedTypeVariables #-}
module CrazyIO (module CrazyIO, mmapFileByteString) where

import qualified Data.Vector.Storable      as V
import qualified Data.ByteString as BS
import qualified Data.ByteString.Internal as BS
import           Foreign
import           System.IO.MMap

crazyLoad :: forall a. Storable a => FilePath -> Maybe (Int64, Int) -> IO (V.Vector a)

ion1

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}

import Overture
import Prelude ()

data Foo m a b where
  Foo :: m -> Foo m a a

instance Show m => Show (Foo m a a) where

kennethreitz

#!/usr/bin/env python
# -*- coding: utf-8 -*-

import urllib2

gh_url = 'https://api.github.com'

req = urllib2.Request(gh_url)

password_manager = urllib2.HTTPPasswordMgrWithDefaultRealm()