This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE OverloadedStrings #-} | |
module Main where | |
import Database.MySQL.Base | |
import qualified System.IO.Streams as Streams | |
import Control.Monad | |
main :: IO () |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE BangPatterns #-} | |
import Control.Monad | |
import Control.Concurrent | |
import Control.Concurrent.STM | |
import Numeric.Natural | |
type QJob = TBQueue (A, MVar B) | |
worker :: (A -> B) -> QJob -> IO () | |
worker f qjob = forever $ do |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?php | |
require __DIR__ . '/vendor/autoload.php'; | |
use Badcow\DNS\Zone; | |
use Badcow\DNS\Rdata\Factory; | |
use Badcow\DNS\ResourceRecord; | |
use Badcow\DNS\AlignedBuilder; | |
// Login details, fill those in with your TransIP username, the file containing | |
// your private key, and the domain you would like to export | |
Transip_ApiSettings::$login = "<username>"; |