-instance Dispatchable (CI Text
- → [ByteString]
- → IO (Maybe ([ByteString], ResourceDef))) where
- findResource = id
-
-instance Dispatchable (CI Text → [ByteString] → IO (Maybe ResourceDef)) where
- findResource = ((((<$>) ∘ (<$>)) ((,) []) ∘) ∘)
-
-instance Dispatchable (CI Text → [ByteString] → Maybe ResourceDef) where
- findResource = (((return ∘ ((,) [] <$>)) ∘) ∘)
+-- |@a `'mappend'` b@ first tries @a@, and then tries @b@.
+instance Monoid Dispatcher where
+ {-# INLINE mempty #-}
+ mempty = empty
+ {-# INLINE mappend #-}
+ mappend = insert