login layout.

src/Foundation.hs

@@ -105,7 +105,10 @@ instance YesodAuth App where
   loginDest _ = HomeR
   logoutDest _ = HomeR
   redirectToReferer _ = False
-  authPlugins _ = [authHashDB (Just . UniqueUsername)]
+  authPlugins _ = [authHashDBWithForm loginform (Just . UniqueUsername)]
+    where
+      loginform :: Route App -> Widget
+      loginform action = $(whamletFile "templates/login.hamlet")
   authenticate creds = liftHandler $ runDB $ do
     x <- getBy $ UniqueUsername $ credsIdent creds
     case x of

templates/login.hamlet

+<.container>
+  <.row>
+    <.column>
+    <.column.column-50>
+      <form action=@{action} method=post>
+        <fieldset>
+          <label for=username-field> Username
+          <input #username-field name=username placeholder="Your Username." type=text>
+          <label for=password-field> Password
+          <input #password-field name=password placeholder="Your Password." type=password>
+
+          <input .button-primary value=sign-in type=submit>
+    <.column>
\ No newline at end of file