tlaitinen

"use strict";
define({
    session: function() {
        return {
            status: '',
            user: '',
            baseUrl: '',
            login: function(baseUrl, username, password, doneCallback, failCallback) {
                var ses = this;
                ses.baseUrl = baseUrl;

tlaitinen

safeRead :: forall a. Read a => Text -> Maybe a
safeRead s = case (reads $ T.unpack s) of
   [(v,_)] -> Just v
   _ -> Nothing

instance PathPiece Int32 where
    fromPathPiece s =
        case Data.Text.Read.decimal s of
            Right (i, _) -> Just i
            Left _ -> Nothing

tlaitinen

{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE FlexibleContexts #-}
module Api.Database where

tlaitinen

{-# LANGUAGE PackageImports #-}
module AES (encryptFile, decrypt) where

import Data.ByteString (ByteString)
import qualified Data.ByteString as B
import Data.Maybe
import qualified "cryptonite" Crypto.Cipher.AES as C
import qualified "cryptonite" Crypto.Cipher.Types as C
import qualified "cryptonite" Crypto.Error as C
import qualified Crypto.Nonce as N

tlaitinen

import xs from 'xstream';
import isolate from '@cycle/isolate';
import {div, button, input} from '@cycle/dom';

function intent(domSource, httpSource) {
    const errorObj = { httpError: true }
    const username$ = domSource.select('.username').events('input')
            .map(ev => ev.target.value).startWith('')
    const password$ = domSource.select('.password').events('input')
            .map(ev => ev.target.value).startWith('')

tlaitinen

{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE FlexibleContexts #-}
module Api.Database where

tlaitinen

{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
module Api.User where

import Servant
import Models
import Enums
import Config

tlaitinen

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE RecordWildCards #-}
module OnlySecure where

tlaitinen

#include "opencv2/objdetect.hpp"
#include "opencv2/imgcodecs.hpp"
#include "opencv2/videoio.hpp"
#include "opencv2/highgui.hpp"
#include "opencv2/face.hpp"
#include "opencv2/imgproc.hpp"
#include "opencv2/core/utility.hpp"
#include "opencv2/core/core_c.h"
#include "opencv2/videoio/videoio_c.h"
#include "opencv2/highgui/highgui_c.h"

tlaitinen

CREATE FUNCTION has_role (userId BIGINT, userGroupId BIGINT, role TEXT)  
RETURNS BOOLEAN
AS 
$$
SELECT EXISTS (
  SELECT 1 
  FROM role 
  WHERE user_id = $1 
    AND user_group_id = $2 
    AND role = $3