Permalink
Browse files

Improved jobs CSS

  • Loading branch information...
1 parent 9bab719 commit 74c0a47895d87f4ecaa31f1842aff34055489e82 @snoyberg committed Feb 7, 2013
Showing with 9 additions and 3 deletions.
  1. +3 −3 Handler/User.hs
  2. +6 −0 templates/job.cassius
View
@@ -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
@@ -18,3 +18,9 @@ td
#desc
margin: 10px 20px
padding: 3px
+ p
+ line-height: 1.4em
+ ul
+ padding-left: 40px
+ li
+ list-style: disc

0 comments on commit 74c0a47

Please sign in to comment.