Skip to content

Instantly share code, notes, and snippets.

tim2CF

Block or report user

Report or block tim2CF

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@tim2CF
tim2CF / WaiSemigroup.hs
Last active Feb 25, 2020
Nework.Wai.Application Semigroup type class instance
View WaiSemigroup.hs
{-# LANGUAGE InstanceSigs #-}
module Wai.Network.Middleware.WaiSemigroup (WaiApp(..)) where
import Data.Coerce (coerce)
import Network.HTTP.Types.Status (status404)
import Network.Wai (Application, responseStatus)
newtype WaiApp = WaiApp Application
instance Semigroup WaiApp where
(<>) :: WaiApp -> WaiApp -> WaiApp
You can’t perform that action at this time.