tA/p7
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fully nuked chhf

Browse Source
This commit is contained in:
Shaun Kerr 2018-06-28 14:49:32 +12:00
parent 35ad19f499
commit acddf30dea
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Main.hs
View File

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