nakal

import System.Posix.PAM

main = do
        res <- authenticate "system" "user" "pass"
        case res of
                Left a -> putStrLn $ "error: " ++ pamCodeToMessage a
                Right () -> putStrLn "success"

nakal

{-
	File: Lockpattern.hs

	This programm calculates a pattern for the 3x3 lock screen in Android
	devices. It outputs the path in form of a matrix with numbered
	finger positions.

-}

import System.Random

nakal

import Network.Socket as N
import Control.Concurrent

serverPort :: PortNumber
serverPort = 8080

main = do
	sock <- N.socket N.AF_INET6 N.Stream N.defaultProtocol
	N.setSocketOption sock N.ReuseAddr 1
	N.setSocketOption sock N.ReusePort 1