Skip to content

Instantly share code, notes, and snippets.

View roelvandijk's full-sized avatar

Roel van Dijk roelvandijk

View GitHub Profile
@roelvandijk
roelvandijk / Nub.hs
Last active February 7, 2016 16:51 — forked from fizruk/Nub.hs
Incredibly slow type-level Nub
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE UndecidableInstances #-}
module Nub where
import Data.Proxy
import Data.Type.Bool
@roelvandijk
roelvandijk / BoundsMonitor.hs
Created February 13, 2013 16:13
Bounds monitor
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE PackageImports #-}
{-# LANGUAGE UnicodeSyntax #-}
module BoundsMonitor where
import "base" Control.Monad ( return )
import "base" Control.Concurrent.MVar ( MVar, newMVar, modifyMVar, modifyMVar_ )
import "base" Data.Bool ( Bool(False, True) )
@roelvandijk
roelvandijk / Unit.hs
Created March 23, 2012 16:38
Language of Physical Units
{-# LANGUAGE FlexibleContexts
, NoImplicitPrelude
, PackageImports
, UnicodeSyntax
#-}
module Numeric.Units.Dimensional.TF.Parser.Unit
( UnitExp(..)
, parseUnitExp
) where
@roelvandijk
roelvandijk / Parse.hs
Created March 19, 2012 16:14
dimensional-tf unit parser thing
{-# LANGUAGE FlexibleInstances
, NoImplicitPrelude
, PackageImports
, ScopedTypeVariables
, TypeSynonymInstances
, UnicodeSyntax
#-}
module Numeric.Units.Dimensional.TF.Parser
( PrefixItem