Skip to content

Instantly share code, notes, and snippets.

View mikeplus64's full-sized avatar

Mike Ledger mikeplus64

34 followers · 6 following
View GitHub Profile
@mikeplus64
mikeplus64 / Marshal.hs
Last active August 29, 2015 13:57
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverlappingInstances #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnboxedTuples #-}
{-# LANGUAGE TypeSynonymInstances #-}
module Marshal where
import Control.Applicative
import GHC.Exts (RealWorld, unsafeCoerce#)
import GHC.IO (IO(..))