-instance Dispatchable ([ByteString]
- → IO (Maybe ([ByteString], ResourceDef))) where
- findResource = const
-
-instance Dispatchable ([ByteString]
- → Maybe ([ByteString], ResourceDef)) where
- findResource = const ∘ (return ∘)
-
-instance Dispatchable ([ByteString]
- → IO (Maybe ResourceDef)) where
- findResource = const ∘ (((<$>) ∘ (<$>)) ((,) []) ∘)
-
-instance Dispatchable ([ByteString]
- → Maybe ResourceDef) where
- findResource = const ∘ ((return ∘ ((,) [] <$>)) ∘)
-
-instance Dispatchable (IO (Maybe ([ByteString], ResourceDef))) where
- findResource = const ∘ const
-
-instance Dispatchable ([ByteString], ResourceDef) where
- findResource = const ∘ const ∘ return ∘ Just
+instance Dispatchable ([ByteString] → Maybe ResourceDef) where
+ dispatch = const ∘ ((return ∘ ((,) [] <$>)) ∘)