Mike Ledger mikeplus64
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# LANGUAGE OverloadedStrings #-} | |
| import Blaze.ByteString.Builder | |
| import Control.Lens | |
| import Control.Monad.Trans.Either | |
| import qualified Data.ByteString as B | |
| import Data.Map.Syntax | |
| import Heist | |
| import Heist.Compiled | |
| main = do |
mikeplus64
/ Marshal.hs
Last active
August 29, 2015 13:57
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# 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(..)) |
NewerOlder