miku 2012.10.27 → 2014.4.14
raw patch · 3 files changed
+6/−16 lines, 3 filesdep −utf8-stringPVP ok
version bump matches the API change (PVP)
Dependencies removed: utf8-string
API changes (from Hackage documentation)
Files
- miku.cabal +4/−5
- readme.md +0/−8
- src/Network/Miku/Utils.hs +2/−3
miku.cabal view
@@ -1,9 +1,9 @@ Name: miku-Version: 2012.10.27+Version: 2014.4.14 Build-type: Simple Synopsis: A minimum web dev DSL in Haskell Description:- + A simple library for fast web prototyping in Haskell. License: BSD3@@ -21,14 +21,13 @@ , data-default , hack2 >= 2012.1.19 , hack2-contrib >= 2012.1.19- , utf8-string , air >= 2011.6.19 , mtl , containers , bytestring- + hs-source-dirs: src/- exposed-modules: + exposed-modules: Network.Miku Network.Miku.Config Network.Miku.DSL
readme.md view
@@ -98,14 +98,6 @@ -- in Network.Miku.Engine miku :: MikuMonad -> Application---## Miku application template--This template project shows how to incorporate sandboxing, auto-reloading and other cool stuff.--<https://github.com/nfjinjing/miku-template>- ## Hints
src/Network/Miku/Utils.hs view
@@ -6,7 +6,6 @@ import Hack2 import Air.Env import Prelude ()-import Data.ByteString.UTF8 (fromString, toString) import qualified Data.ByteString.Char8 as B import Data.ByteString.Char8 (ByteString)@@ -19,10 +18,10 @@ .map_fst (B.drop (x.B.length)) put_namespace :: ByteString -> [(ByteString, ByteString)] -> Env -> Env-put_namespace x xs env = +put_namespace x xs env = let adds = xs.map_fst (x +) new_headers = adds.map fst- new_hack_headers = + new_hack_headers = env.hackHeaders.reject (fst > belongs_to new_headers) ++ adds in env {hackHeaders = new_hack_headers}