diff --git a/Data/Vector/Storable/MMap.hs b/Data/Vector/Storable/MMap.hs
new file mode 100644
--- /dev/null
+++ b/Data/Vector/Storable/MMap.hs
@@ -0,0 +1,38 @@
+{-# LANGUAGE ScopedTypeVariables #-}
+module Data.Vector.Storable.MMap (
+  System.IO.MMap.Mode(..),
+  unsafeMMapMVector,
+  unsafeMMapVector
+) where
+
+import System.IO.MMap
+import Foreign.Storable
+
+import qualified Data.Vector.Storable as I
+import qualified Data.Vector.Storable.Mutable as M
+import Data.Int
+
+import Control.Monad.Primitive
+
+-- | Map a file into memory as a mutable vector.
+unsafeMMapMVector :: forall s a. Storable a => FilePath -- ^ Path of the file to map
+                                            -> Mode -- ^ Mapping mode
+                                            -> Maybe (Int64, Int) -- ^ 'Nothing' to map entire file into memory, otherwise 'Just (fileOffset, elementCount)'
+                                            -> IO (M.MVector (PrimState IO) a)
+unsafeMMapMVector path mode range = 
+  do (foreignPtr, offset, size) <- mmapFileForeignPtr path mode $
+        case range of
+          Nothing -> Nothing
+          Just (start, length) -> Just (start, length * sizeOf (undefined :: a))
+     return $ M.unsafeFromForeignPtr foreignPtr offset (size `div` sizeOf (undefined :: a))
+
+-- | Map a file into memory ('ReadOnly' mode) as an immutable vector.
+unsafeMMapVector :: forall a. Storable a => FilePath -- ^ Path of the file to map
+                                         -> Maybe (Int64, Int) -- ^ 'Nothing' to map entire file into memory, otherwise 'Just (fileOffset, elementCount)'
+                                         -> IO (I.Vector a)
+unsafeMMapVector path range = 
+  do (foreignPtr, offset, size) <- mmapFileForeignPtr path ReadOnly $ 
+        case range of
+          Nothing -> Nothing
+          Just (start, length) -> Just (start, length * sizeOf (undefined :: a))
+     return $ I.unsafeFromForeignPtr foreignPtr offset (size `div` sizeOf (undefined :: a))
diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,29 @@
+Copyright (c) 2010, Daniel Peebles
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+- Redistributions of source code must retain the above copyright notice,
+this list of conditions and the following disclaimer.
+ 
+- Redistributions in binary form must reproduce the above copyright notice,
+this list of conditions and the following disclaimer in the documentation
+and/or other materials provided with the distribution.
+ 
+- Neither name of the University nor the names of its contributors may be
+used to endorse or promote products derived from this software without
+specific prior written permission. 
+
+THIS SOFTWARE IS PROVIDED BY THE UNIVERSITY COURT OF THE UNIVERSITY OF
+GLASGOW AND THE CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
+UNIVERSITY COURT OF THE UNIVERSITY OF GLASGOW OR THE CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
+DAMAGE.
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/vector-mmap.cabal b/vector-mmap.cabal
new file mode 100644
--- /dev/null
+++ b/vector-mmap.cabal
@@ -0,0 +1,23 @@
+Name:           vector-mmap
+Version:        0.0.1
+License:        BSD3
+License-File:   LICENSE
+Author:         Daniel Peebles <pumpkingod@gmail.com>
+Maintainer:     Daniel Peebles <pumpkingod@gmail.com>
+Copyright:      (c) Daniel Peebles 2010
+Homepage:       http://code.haskell.org/vector
+Category:       Data, Data Structures
+Synopsis:       Memory map immutable and mutable vectors
+Description:
+        Memory map immutable and mutable vectors.
+
+Cabal-Version:  >= 1.2
+Build-Type:     Simple
+
+Library
+  Exposed-Modules:
+        Data.Vector.Storable.MMap
+
+  Build-Depends: base >= 2 && < 5, mmap >= 0.5.4, vector >= 0.5, primitive >= 0.2.1
+
+  Ghc-Options: -O2