fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of gitlab.cip.ifi.lmu.de:jost/UniWorX

Browse Source
This commit is contained in:
SJost 2019-02-22 10:50:44 +01:00
commit 1c99c11fbb
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Foundation.hs
View File

@ -78,6 +78,8 @@ import qualified Crypto.Saltine.Core.SecretBox as SecretBox
import qualified Database.Memcached.Binary.IO as Memcached import qualified Database.Memcached.Binary.IO as Memcached
import Data.Bits (Bits(zeroBits)) import Data.Bits (Bits(zeroBits))
import Network.Wai.Parse (lbsBackEnd)
instance DisplayAble b => DisplayAble (E.CryptoID a b) where instance DisplayAble b => DisplayAble (E.CryptoID a b) where
display = display . ciphertext display = display . ciphertext
@ -891,6 +893,8 @@ instance Yesod UniWorX where
. runIdentity . runIdentity
$ sourceList (Lazy.ByteString.toChunks content) $$ sinkHash $ sourceList (Lazy.ByteString.toChunks content) $$ sinkHash
fileUpload _site _length = FileUploadMemory lbsBackEnd
-- What messages should be logged. The following includes all messages when -- What messages should be logged. The following includes all messages when
-- in development, and warnings and errors in production. -- in development, and warnings and errors in production.
shouldLog _ _ _ = error "Must use shouldLogIO" shouldLog _ _ _ = error "Must use shouldLogIO"