mgsloan

zipProducers :: Producer a m r -> Producer b m r -> Producer (a, b) m r
zipProducers (Pure r) _ = return r
zipProducers _ (Pure r) = return r

zipProducers (M m1) (M m2) = lift m1 >>= \p1 -> lift m2 >>= \p2 -> zipProducers p1 p2
zipProducers (M m1) p2     = lift m1 >>= \p1 ->                    zipProducers p1 p2
zipProducers p1     (M m2) =                    lift m2 >>= \p2 -> zipProducers p1 p2

zipProducers (Await f1) (Await f2) = zipProducers (f1 ()) (f2 ())
zipProducers (Await f1) p2         = zipProducers (f1 ()) p2

mgsloan

import Control.Applicative
import Control.Lens
import Data.Data
import Data.Data.Lens

descendents :: (Data a, Data b) => (b -> Bool) -> Fold a b 
descendents p f = biplate go
 where
  go x
    | p x = f x

mgsloan

module Bar where

bar = answer * 20

mgsloan

#!/bin/bash

ext=$1

rsync -aL --delete ~/fpco/ide/ ~/build/fpco-$ext/

cd ~/build/fpco-$ext

perl -i -pe "s~/fpco/ide/~/build/fpco-$ext/~g;"         \
    .hsenvs/*/.hsenv/bin/activate                       \

mgsloan

GeocodeResponse latLng <- callJsonEndpoint $ GeocodeEndpoint targetAddress False
let venuesTrendingEndpoint = VenuesTrendingEndpoint latLng Nothing Nothing `authorizeWith` creds
VenuesTrendingResponse venues <- callJsonEndpoint venuesTrendingEndpoint
let printVenue v = putStrLn $ "- " ++ name v
mapM_ printVenue venues

mgsloan

import GHC.Vacuum
import GHC.Vacuum.GraphViz
import Data.GraphViz 
 
lazyVacuumToPng :: FilePath -> a -> IO FilePath
lazyVacuumToPng fp x = graphToDotFile fp Png $ nameGraph (vacuumLazy x)
 
main :: IO ()
main = do
    lazyVacuumToPng "beforeForce" xs

mgsloan

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE QuasiQuotes #-}

module Slogger where

mgsloan

-- | Load all of the hints at compile time.
hlintFixities :: [HSE.Fixity]
hlintClassifies :: [Classify]
hlintBuiltins :: [String]
hlintRules :: [HintRule]
(hlintFixities, hlintClassifies, hlintBuiltins, hlintRules) =
  $(do let dataDir = "../learning-site/config/hlint/"
       (builtin, matches) <- TH.qRunIO $ findSettings dataDir (dataDir </> "HLint.hs") Nothing
       let (classify, rules) = concat2 $ map readSettings matches
           -- All of these helpers are copied from HLint

mgsloan

Hello!

Github is awesome! However, a minor issue report:

Very recently the code highlighting changed, to the detriment of haskell highlighting. Others have noticed too, an example comment: https://github.com/chrisdone/hindent/issues/36#issuecomment-63157052

The old highlighting doesn't need to come back, however, here are a couple immediately apparent issues:

1. The last type in a function type signature seems to get a different color, for no good reason

mgsloan

 {-# LANGUAGE OverloadedStrings #-}

module Main where

import Control.Monad.Trans
import GHCJS.DOM
import GHCJS.DOM.Node
import Style
import Util