0votos

Acceso a edificio en Haskell

por josejuan hace 5 años

Así por ejemplo (ver solución anterior), podemos acceder a nuestro sistema (gestión de usuarios en este caso) desde una aplicación de gestión interna (el típico proceso que se lanza cada X tiempo para revisar y notificar cosas). En este caso, se separan los usuarios normales de los administradores (ej. para notificar a los admins).

Controlar en php el acceso a un edificio

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{-# LANGUAGE ScopedTypeVariables, OverloadedStrings #-} 
import Data.Either 
import Database.Persist.Sqlite 
import Oac 
 
main :: IO () 
main = do 
 
  query :: Either [Char] [Entity User] <- runSqlite "oac.db3" $ adminSelect (Credentials "root" "oca") [] [] 
   
  case query of 
    Left argh   -> putStrLn argh 
    Right users -> do 
                     let admins = filter userAdmin $ map entityVal users 
                     print users 
                     print admins 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.