blank-canvas 0.2.3.1 → 0.2.3.2

raw patch · 2 files changed

+5/−3 lines, 2 files

Files

• Graphics/Blank.hs +3/−1
• blank-canvas.cabal +2/−2

@@ -1,4 +1,4 @@-{-# LANGUAGE OverloadedStrings, TemplateHaskell, GADTs, KindSignatures #-}+{-# LANGUAGE OverloadedStrings, TemplateHaskell, GADTs, KindSignatures, CPP #-}  module Graphics.Blank         (@@ -172,7 +172,9 @@ local_only f r = case remoteHost r of                    SockAddrInet _  h | h == fromIntegral home                                     -> f r+#if !defined(mingw32_HOST_OS) && !defined(_WIN32)                    SockAddrUnix _   -> f r+#endif                    _                ->  return $ responseLBS H.status403                                                              [("Content-Type", "text/plain")]                                                              "local access only"

@@ -1,5 +1,5 @@ Name:                blank-canvas-Version:             0.2.3.1+Version:             0.2.3.2 Synopsis:            HTML5 Canvas Graphics Library Description:         A Haskell port of the HTML5 Canvas API.                      blank-canvas works by providing a web service that@@ -57,4 +57,4 @@  source-repository head   type:     git-  location: git://github.com/andygill/blank-canvas.git+  location: git://github.com/ku-fpg/blank-canvas.git