Commit 4223262e authored by Christopher League's avatar Christopher League
Browse files

Empty unit2 card

parent 3cab4ce4
......@@ -102,6 +102,14 @@ unitTitle num title =
#{title}
|]
unit2 :: Widget
unit2 = do
cardList (unitTitle 2 "Logic and architecture") $
[whamlet|
<li .list-group-item>
Coming soon
|]
unit1 :: Widget
unit1 = do
cardList (unitTitle 1 "Digital representations") $
......@@ -164,3 +172,4 @@ getHomeR =
essentialLinks
whenAuthenticated $ do
unit1
unit2
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment