14 lines
259 B
Haskell
14 lines
259 B
Haskell
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
module Data.Maybe.Instances
|
|
(
|
|
) where
|
|
|
|
import ClassyPrelude
|
|
|
|
import Text.Blaze (ToMarkup(..), string)
|
|
|
|
instance ToMarkup a => ToMarkup (Maybe a) where
|
|
toMarkup Nothing = string ""
|
|
toMarkup (Just x) = toMarkup x
|