caiorss

#I __SOURCE_DIRECTORY__

#r "libs/NuGet.Core.dll"
#r "System.Xml.Linq"

open NuGet
open System
open System.IO

module NuGet =

caiorss

type CategoryFunc = float -> float
type Category = string * CategoryFunc

module private CategoryRandom =
  let r = System.Random()

  let from n = r.Next n

[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
module Category =

caiorss

{-# LANGUAGE OverloadedStrings #-}

import           Network.HTTP.Conduit
import qualified Data.ByteString.Lazy.Char8 as L

main :: IO ()
main = do
  plainRequest <- parseUrl "http://httpbin.org/post"
  let enrichedRequest = urlEncodedBody [("foo","bar"),("baz","qux")] plainRequest
  response <- withManager $ httpLbs enrichedRequest

caiorss

{-# LANGUAGE OverloadedStrings #-}

import Data.Conduit
import Data.Conduit.Network
import Data.Conduit.Text (encode, decode, utf8)
import qualified Data.Conduit.List as CL
import qualified Data.Conduit.Binary as CB

import Data.Text (toUpper)
import qualified Data.ByteString.Char8 as S8

caiorss

News RSS Feeds

	News
Bloomberg
Bloomberg Markets	http://www.bloomberg.com/feeds/podcasts/advantage.xml
Bloomberg Views	http://www.bloomberg.com/feeds/podcasts/view.xml
Bloomberg Radio	https://www.bloomberg.com/feeds/podcasts/featured.xml

caiorss

module GlobRegex
       (
        globToRegex,
        matchesGlob
       )
where
  
  import Text.Regex.Posix ((=~))
  import Data.Char (toLower)
  

caiorss

import Control.Monad
import Data.List
import Test.HUnit

readMaybe :: (Read a) => String -> Maybe a
readMaybe st = case reads st of [(x, "")] -> Just x
                                _ -> Nothing

foldingFunction :: [Double] -> String -> Maybe [Double]
foldingFunction (x:y:ys) "*" = return $ (y * x) : ys

caiorss

module Main where

import qualified Data.ByteString.Char8 as B
import Data.Tree.NTree.TypeDefs
import Data.Maybe
import Text.XML.HXT.XPath
import Text.XML.HXT.Core
import Control.Monad
import Control.Monad.Trans

caiorss

# Install Haskell platform libraries from: 
#  
# - https://www.haskell.org/platform/contents.html
#
{ nixpkgs ? import <nixpkgs> {}, compiler ? "ghc801" }:
let
  inherit (nixpkgs) pkgs;
  ghc = pkgs.haskell.packages.${compiler}.ghcWithPackages (ps: with ps; [
          mtl random  network HTTP HUnit HGL parsec template-haskell transformers async attoparsec cgi exceptions  fixed GLURaw GLUT half hashable haskell-src html HTTP multipart network "network-uri" ObjectName old-locale old-time OpenGL OpenGLRaw parallel parsec primitive random regex-base regex-compat stm syb text xhtml zlib QuickCheck
        ]);

caiorss

-- Echo server program
module Main where

import Control.Monad (unless,when)
import Network.Socket hiding (recv)
import qualified Data.ByteString as S
import Data.Word(Word8)
import Control.Concurrent(threadDelay)
import Data.List
import Numeric