{-# OPTIONS_GHC -fno-warn-orphans #-}
module Hdoc.Utils where

import Data.Default.Class (Default(..))
import Data.Foldable (toList)
import Data.Function ((.))
import Data.Hashable (Hashable(..))
import Data.Sequence (Seq)
import qualified Data.HashMap.Strict as HM
import qualified Data.TreeSeq.Strict as TS

instance Default (HM.HashMap k a) where
	def = HM.empty
instance Hashable a => Hashable (Seq a) where
	hashWithSalt s = hashWithSalt s . toList
{-
instance Hashable a => Hashable (TS.Tree a) where
	hashWithSalt s (TS.Tree a ts) =
		s`hashWithSalt`a
		 `hashWithSalt`ts
-}