Skip to content

Instantly share code, notes, and snippets.

module Main where
import Data.Foreign (Foreign())
import Data.Maybe (Maybe(..))
import Data.Options
import Debug.Trace
data Shape = Circle | Square | Triangle
instance shapeShow :: Show Shape where
@ethul
ethul / angular-ui--ui-bootstrap-position.js
Last active August 29, 2015 14:16
Snapshot of the ui.bootstrap.position module from v0.12.1 modified to be loaded as an independent module through npm
var angular = require('angular');
module.exports = angular.module('angular-ui--ui-bootstrap-position', [])
/**
* A set of utility methods that can be use to retrieve position of DOM elements.
* It is meant to be used where we need to absolute-position DOM elements in
* relation to other, existing elements (this is the case for tooltips, popovers,
* typeahead suggestions etc.).
*/
module Forever where
import Prelude
import Control.Monad.Eff
import Control.Monad.Eff.Console
import Control.Monad.Free
import Control.Monad.Rec.Class (forever)
import Data.NaturalTransformation
module Test.Main where
import Prelude (Applicative, Apply, Functor, Show, Unit(), (<*>), (<>), (<$>), ($), (<<<), id, bind, map, pure, return, unit)
import Control.Applicative.Free (FreeAp(), NaturalTransformation(), liftFreeAp, foldFreeAp)
import Control.Apply (lift2)
import Control.Monad.Eff (Eff())
import DOM (DOM())
import DOM.Node.Types (Element())
module Test.Main where
import Prelude
import Control.Monad.Eff.Unsafe (unsafeInterleaveEff)
import Data.Array (reverse)
import Data.Foldable (traverse_)
import Data.Monoid
import Data.Traversable (traverse)