From eb51ca8d3e1a635dc8f0ccb1fc14b8468822a1d3 Mon Sep 17 00:00:00 2001
From: Christopher Reichert <creichert07@gmail.com>
Date: Fri, 19 Dec 2014 16:21:07 -0600
Subject: [PATCH] Run stylish-haskell on websockets chat example.

---
 incoming/websockets/chat.hs | 30 +++++++++++++++++-------------
 1 file changed, 17 insertions(+), 13 deletions(-)

diff --git a/incoming/websockets/chat.hs b/incoming/websockets/chat.hs
index fe27ba9..682aa2e 100644
--- a/incoming/websockets/chat.hs
+++ b/incoming/websockets/chat.hs
@@ -1,16 +1,20 @@
-{-# LANGUAGE QuasiQuotes, TemplateHaskell, TypeFamilies, OverloadedStrings #-}
-import Yesod.Core
-import Yesod.WebSockets
-import qualified Data.Text.Lazy as TL
-import Control.Monad (forever)
-import Control.Monad.Trans.Reader
-import Control.Concurrent (threadDelay)
-import Data.Time
-import Data.Conduit
-import qualified Data.Conduit.List as CL
-import Data.Monoid ((<>))
-import Control.Concurrent.STM.Lifted
-import Data.Text (Text)
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE QuasiQuotes       #-}
+{-# LANGUAGE TemplateHaskell   #-}
+{-# LANGUAGE TypeFamilies      #-}
+
+import           Control.Concurrent            (threadDelay)
+import           Control.Concurrent.STM.Lifted
+import           Control.Monad                 (forever)
+import           Control.Monad.Trans.Reader
+import           Data.Conduit
+import qualified Data.Conduit.List             as CL
+import           Data.Monoid                   ((<>))
+import           Data.Text                     (Text)
+import qualified Data.Text.Lazy                as TL
+import           Data.Time
+import           Yesod.Core
+import           Yesod.WebSockets
 
 data App = App (TChan Text)