T8011a.hs 203 Bytes
Newer Older
Simon Peyton Jones's avatar
Simon Peyton Jones committed
1
2
3
4
5
6
7
8
{-# LANGUAGE TypeFamilies #-}
module T8011a ( ToURL(toURL, nullURL, errorURL, URLT) ) where

class ToURL a where
     type URLT a
     toURL :: a -> URLT a
     nullURL :: a
     errorURL :: a -> URLT a