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

Minor CSS change, fixed port

Browse Source
This commit is contained in:
Shaun Kerr 2018-06-28 10:12:44 +12:00
parent 6aab9b7f8d
commit 35ad19f499
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Main.hs
View File

@ -112,6 +112,7 @@ getHomeR = defaultLayout $ do
ul { ul {
text-align: initial; text-align: initial;
margin: 10px;
} }
.upcomingIn { .upcomingIn {
@ -207,7 +208,7 @@ getHomeR = defaultLayout $ do
|] |]
main :: IO () main :: IO ()
main = warp 7280 Chhf main = warp 80 Chhf
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