hsdev-0.3.0.1: src/HsDev/Display.hs

{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}

module HsDev.Display (
	Display(..)
	) where

import Control.Lens (view)

import System.Directory.Paths

class Display a where
	display :: a -> String
	displayType :: a -> String

instance Display FilePath where
	display = id
	displayType _ = "path"

instance Display Path where
	display = view path
	displayType _ = "path"