Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Improved jobs CSS

  • Loading branch information...
commit 74c0a47895d87f4ecaa31f1842aff34055489e82 1 parent 9bab719
@snoyberg authored
Showing with 9 additions and 3 deletions.
  1. +3 −3 Handler/User.hs
  2. +6 −0 templates/job.cassius
View
6 Handler/User.hs
@@ -25,7 +25,7 @@ import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.Read
import qualified Data.ByteString.Base64 as B64
-import Crypto.Cipher.AES (initKey128, encryptCBC)
+import Crypto.Cipher.AES (initKey, encryptCBC, IV (IV))
import Network.HTTP.Types (status301)
getByIdentR :: Handler RepJson
@@ -136,9 +136,9 @@ pad s =
encrypt :: S.ByteString -> IO S.ByteString
encrypt bs = do
- key <- either error return $ initKey128 mailhidePrivate
+ let key = initKey mailhidePrivate
let iv = S.replicate 16 0
- return $ encryptCBC key iv bs
+ return $ encryptCBC key (IV iv) bs
getFlagR :: UserId -> Handler RepHtml
getFlagR uid = do
View
6 templates/job.cassius
@@ -18,3 +18,9 @@ td
#desc
margin: 10px 20px
padding: 3px
+ p
+ line-height: 1.4em
+ ul
+ padding-left: 40px
+ li
+ list-style: disc
Please sign in to comment.
Something went wrong with that request. Please try again.