unitym-servant (empty) → 0.1.0.0

raw patch · 4 files changed

+107/−0 lines, 4 filesdep +basedep +mtldep +servant-serversetup-changed

Dependencies added: base, mtl, servant-server, text, transformers, unitym

Files

LICENSE +30/−0
Setup.hs +2/−0
src/Network/UnityM/Servant.hs +45/−0
unitym-servant.cabal +30/−0

+ LICENSE view

@@ -0,0 +1,30 @@+Copyright Author name here (c) 2017++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 Author name here 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.

+ Setup.hs view

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

+ src/Network/UnityM/Servant.hs view

@@ -0,0 +1,45 @@+{-# LANGUAGE FlexibleInstances     #-}+{-# LANGUAGE MultiParamTypeClasses #-}++{- |+Module          : Network.UnityM.Servant+Description     : The Unity Monad implementation for Servant+Copyright       : (c) Brian Hurt, 2017+License         : BSD3+Maintainer      : bhurt42@gmail.com+Stability       : experimental+Portability     : Haskell++This is the implementation of the Unity monad for Servant.  I assume that+the code is using enter to add a ReaderT or StateT on top of the Handler+monad.++Note that if we try to supply a implementation of UnityM for MTL's Reader+type class, this conflicts with the Trans implementation of UnityM in the+main library.  This whole implementation is tap dancing on the edge of+needing OverlappingInstances, which is bad. For more complex instances,+hand rolled implementations of UnityM may be required.++-}+module Network.UnityM.Servant where++    import Control.Monad.Except+    import Network.UnityM+    import qualified Control.Monad.Trans.Reader as TransR+    import qualified Control.Monad.Trans.State as TransS+    import qualified Data.Text as Text+    import Servant++    instance {-# OVERLAPPING #-}+        UnityM c (TransR.ReaderT c Handler) where+            getContext = TransR.ask+            permissionDenied msg = lift $ throwError (err403+                                                    { errReasonPhrase =+                                                        Text.unpack msg })+    instance {-# OVERLAPPING #-}+        UnityM c (TransS.StateT c Handler) where+            getContext = TransS.get+            permissionDenied msg = lift $ throwError (err403+                                                    { errReasonPhrase =+                                                        Text.unpack msg })+

+ unitym-servant.cabal view

@@ -0,0 +1,30 @@+name:                unitym-servant+version:             0.1.0.0+synopsis:            Implementaation of unitym for Servant servers+description:         Implementaation of unitym for Servant servers +homepage:            https://github.com/bhurt/unitym#readme+license:             BSD3+license-file:        LICENSE+author:              Brian Hurt+maintainer:          bhurt42@gmail.com+copyright:           2017 Brian Hurt+category:            Web+build-type:          Simple+cabal-version:       >=1.10++library+  hs-source-dirs:      src+  exposed-modules:     Network.UnityM.Servant+  build-depends:       base >= 4.7 && < 5+                        , mtl+                        , servant-server+                        , text+                        , transformers+                        , unitym+  default-language:    Haskell2010+  ghc-options:         -W -Wall++source-repository head+  type:     git+  location: https://github.com/bhurt/unitym/unitym-servant+