diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,30 @@
+Copyright (c) 2011, Jacob Stanley
+
+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 the name of Jacob Stanley nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND 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 COPYRIGHT
+OWNER OR 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/cereal-ieee754.cabal b/cereal-ieee754.cabal
new file mode 100644
--- /dev/null
+++ b/cereal-ieee754.cabal
@@ -0,0 +1,32 @@
+name:           cereal-ieee754
+version:        0.1
+synopsis:       Floating point support for the 'cereal' serialization library
+description:    Provides functions for reading and writing IEEE 754 floating
+                point numbers using the 'cereal' binary serialization library.
+homepage:       http://github.com/jystic/cereal-ieee754
+license:        BSD3
+license-file:   LICENSE
+author:         Jacob Stanley
+maintainer:     Jacob Stanley <jacob@stanley.io>
+category:       Data, Parsing
+build-type:     Simple
+cabal-version:  >=1.6
+
+source-repository head
+  type:     git
+  location: http://github.com/jystic/cereal-ieee754.git
+
+library
+  hs-source-dirs: src
+  exposed-modules: Data.Serialize.IEEE754
+
+  build-depends:
+    array  == 0.3.*,
+    base   == 4.*,
+    cereal == 0.3.*
+
+  ghc-options:
+    -Wall
+    -funbox-strict-fields
+    -fno-warn-unused-do-bind
+    -fwarn-tabs
diff --git a/src/Data/Serialize/IEEE754.hs b/src/Data/Serialize/IEEE754.hs
new file mode 100644
--- /dev/null
+++ b/src/Data/Serialize/IEEE754.hs
@@ -0,0 +1,126 @@
+{-# LANGUAGE FlexibleContexts #-}
+
+-- | Functions for reading, writing and converting IEEE 754 floating
+-- point numbers.
+--
+-- Conversions use 'STUArray' and the 'ST' monad to reinterpret bytes
+-- and get /what we assume to be/ the IEEE 754 binary representation
+-- of single and double precision floating point numbers.
+
+module Data.Serialize.IEEE754 (
+
+  -- * Big-endian reads
+    getFloat32be
+  , getFloat64be
+
+  -- * Little-endian reads
+  , getFloat32le
+  , getFloat64le
+
+  -- * Host-endian, unaligned reads
+  , getFloat32host
+  , getFloat64host
+
+  -- * Little-endian writes
+  , putFloat32le
+  , putFloat64le
+
+  -- * Big-endian writes
+  , putFloat32be
+  , putFloat64be
+
+  -- * Host-endian, unaligned writes
+  , putFloat32host
+  , putFloat64host
+
+  -- * Conversions
+  , floatToWord
+  , wordToFloat
+  , doubleToWord
+  , wordToDouble
+
+  ) where
+
+import Control.Applicative ((<$>))
+import Data.Array.ST (newArray, castSTUArray, readArray, MArray, STUArray)
+import Data.Serialize
+import Data.Word (Word32, Word64)
+import GHC.ST (runST, ST)
+
+------------------------------------------------------------------------
+-- Get
+
+-- | Read a 32-bit float in little endian format
+getFloat32le :: Get Float
+getFloat32le = wordToFloat <$> getWord32le
+
+-- | Read a 64-bit float in little endian format
+getFloat64le :: Get Double
+getFloat64le = wordToDouble <$> getWord64le
+
+-- | Read a 32-bit float in big endian format
+getFloat32be :: Get Float
+getFloat32be = wordToFloat <$> getWord32be
+
+-- | Read a 64-bit float in big endian format
+getFloat64be :: Get Double
+getFloat64be = wordToDouble <$> getWord64be
+
+-- | Read a 32-bit float in native host order and host endianness
+getFloat32host :: Get Float
+getFloat32host = wordToFloat <$> getWord32host
+
+-- | Read a 64-bit float in native host order and host endianness
+getFloat64host :: Get Double
+getFloat64host = wordToDouble <$> getWord64host
+
+------------------------------------------------------------------------
+-- Put
+
+-- | Write a 32-bit float in little endian format
+putFloat32le :: Putter Float
+putFloat32le = putWord32le . floatToWord
+
+-- | Write a 64-bit float in little endian format
+putFloat64le :: Putter Double
+putFloat64le = putWord64le . doubleToWord
+
+-- | Write a 32-bit float in big endian format
+putFloat32be :: Putter Float
+putFloat32be = putWord32be . floatToWord
+
+-- | Write a 64-bit float in big endian format
+putFloat64be :: Putter Double
+putFloat64be = putWord64be . doubleToWord
+
+-- | Write a 32-bit float in native host order and host endianness
+putFloat32host :: Putter Float
+putFloat32host = putWord32host . floatToWord
+
+-- | Write a 64-bit float in native host order and host endianness
+putFloat64host :: Putter Double
+putFloat64host = putWord64host . doubleToWord
+
+------------------------------------------------------------------------
+-- Conversions
+
+-- | Interpret a 32-bit word as a 32-bit float.
+wordToFloat :: Word32 -> Float
+wordToFloat x = runST (cast x)
+
+-- | Interpret a 32-bit float as a 32-bit word.
+floatToWord :: Float -> Word32
+floatToWord x = runST (cast x)
+
+-- | Interpret a 64-bit word as a 64-bit float.
+wordToDouble :: Word64 -> Double
+wordToDouble x = runST (cast x)
+
+-- | Interpret a 64-bit float as a 64-bit word.
+doubleToWord :: Double -> Word64
+doubleToWord x = runST (cast x)
+
+{-# INLINE cast #-}
+cast :: (MArray (STUArray s) a (ST s),
+         MArray (STUArray s) b (ST s)) => a -> ST s b
+cast x = newArray (0 :: Int, 0) x >>= castSTUArray >>= flip readArray 0