Skip to content

Commit

Permalink
removed some debug code
Browse files Browse the repository at this point in the history
  • Loading branch information
fegu committed Dec 23, 2020
1 parent 66aebd4 commit 5e95d98
Showing 1 changed file with 0 additions and 5 deletions.
5 changes: 0 additions & 5 deletions IHP/Mail.hs
Original file line number Diff line number Diff line change
Expand Up @@ -28,11 +28,6 @@ import qualified Data.ByteString.Lazy.Char8 as B8
import qualified Data.Text as T
import Data.Maybe

import Control.Exception
data MyException = ThisException | ThatException
deriving (Show, Typeable)
instance Exception MyException

buildMail :: (BuildMail mail, ?context :: context, ConfigProvider context) => mail -> IO Mail
buildMail mail = let ?mail = mail in simpleMail (to mail) from subject (cs $ text mail) (html mail |> Blaze.renderHtml) []

Expand Down

0 comments on commit 5e95d98

Please sign in to comment.