sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2025-03-20 04:46:22 +09:00
Code Issues Activity

Finish route change, it builds now

Browse source 
I used this chance to make some name changes, add some utils, tweak some
imports, remove more `setTitle`s and so on. I also made person, repo,
key and project creation forms verify CI-uniqueness.
This commit is contained in:
fr33domlover 2016-05-23 20:46:54 +00:00
parent 49807ed27f
commit c6c41b485c
43 changed files with 418 additions and 149 deletions
src/Text/Blaze
Local.hs

12
src/Text/Blaze/Local.hs
View file

@ -25,6 +25,12 @@ import Text.Blaze
import qualified Data.CaseInsensitive as CI
instance ToMarkup s => ToMarkup (CI s) where
toMarkup = toMarkup . CI.original
preEscapedToMarkup = preEscapedToMarkup . CI.original
import qualified Data.CaseInsensitive.Local as CIL
instance ToMarkup s => ToMarkup (CIL.AsOriginal s) where
toMarkup = toMarkup . CI.original . CIL.unOriginal
preEscapedToMarkup = preEscapedToMarkup . CI.original . CIL.unOriginal
instance ToMarkup s => ToMarkup (CIL.AsCaseFolded s) where
toMarkup = toMarkup . CI.foldedCase . CIL.unCaseFolded
preEscapedToMarkup = preEscapedToMarkup . CI.foldedCase . CIL.unCaseFolded