Fully nuked chhf

This commit is contained in:
Shaun Kerr 2018-06-28 14:49:32 +12:00
parent 35ad19f499
commit acddf30dea

View File

@ -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