From acddf30dea9bb027cd77a659a6f2049cfcfe8f1c Mon Sep 17 00:00:00 2001
From: Shaun Kerr <shaundavidkerr@gmail.com>
Date: Thu, 28 Jun 2018 14:49:32 +1200
Subject: [PATCH] Fully nuked chhf

---
 Main.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Main.hs b/Main.hs
index 6dd2123..43aa764 100644
--- a/Main.hs
+++ b/Main.hs
@@ -14,7 +14,7 @@ import Preview
 import Yesod
 import Config
 
-data Chhf = Chhf
+data ProtocolSeven = ProtocolSeven
 
 io :: MonadIO io => IO a -> io a
 io = liftIO
@@ -22,11 +22,11 @@ io = liftIO
 putStrLnIO :: MonadIO io => String -> io ()
 putStrLnIO = io . putStrLn
 
-mkYesod "Chhf" [parseRoutes|
+mkYesod "ProtocolSeven" [parseRoutes|
 / HomeR GET
 |]
 
-instance Yesod Chhf
+instance Yesod ProtocolSeven
 
 inBoth :: (Eq a) => [a] -> [a] -> [a]
 inBoth x y = filter (\n -> n `elem` y) x
@@ -208,7 +208,7 @@ getHomeR = defaultLayout $ do
    |]
 
 main :: IO ()
-main = warp 80 Chhf
+main = warp 80 ProtocolSeven
 
 toTS :: (Integer, Int, Int) -> Timestamp
 toTS (y,m,d) = Ts (fromIntegral d) (fromIntegral m) y