마찬가지라 한글이 엮이면 좀 난감해 지는데 뭐 포터블한 한글파일명
처리는 바라지도 않지만 그래도 리눅스상에서 한글을 뿌리는건
가능해야겠지. 어쨌거나 기본 모듈인 Html.Text 로 간단히 한글을
포함하는 html 을 만들어 보고 이놈을 Happstack 을 통해서 뿌려봤다.
먼저 Text.Html 은 html 을 뽑아낼 함수덩어리들을 유지하다가
renderHtml 등으로 실행을 하면 String 타입의 html 을 돌려주는 놈이라고
보면 된다. haskell 의 String 타입은 아주 엿같다고 생각하기 때문에
이런 동작이 그다지 맘에 들진 않지만.. 뭐 어쨌거나 String 으로만
뽑아주게 되어있다.
Happstack 은.. 뭐 결국 응답으로 쓸수있는 타입이 ToMessage 란
타입클래스의 인스턴스여야 하는데 결론적으로 toMessage 라는 함수에
의해서 ByteString 으로 변환후 이걸 브라우저에 뿌려준다고 보면
되겠다.
마침 Html 이 ToMessage 의 인스턴스로 잡혀있어서 따로 렌더를 부르지
않고 바로 Html 을 리턴해주면 알아서 적절히 풀어주게 되어있는데
문제는! 이 인스턴스 구현 소스를 보면 알지만 renderHtml 한 결과물인
String 을 Data.ByteString.Lazy.Char8.pack 을 통해서 바이트스트링으로
바꾼다는거다. Char8 타입이 어떻게 돌지는 모르겠다만 유니코드를
담고있는데 8 이란꼬릴 달고있는 타입을 적용했다는거 자체가 뭔가
안좋다는게 느껴진다.
import qualified Data.ByteString.Char8 as B
import qualified Data.ByteString.Lazy.Char8 as L
instance ToMessage Html where
toContentType _ = B.pack "text/html"
toMessage = L.pack . renderHtml
마침 얼마전에 봐둔 utf8-string 이란 패키지가 있었고 그쪽 문서를
둘러보니 Data.ByteString.Lazy.UTF8 이란 모듈이 보였다.. 흠. 이런식의
모듈간의 호환성을 이용한 라이브러리 구성은 정말 익숙해지질
않는군.. 어쨌거나 저놈을 이용해서 바이트스트링으로 바꿔주니 한글이 잘
보이더라.
import Happstack.Server
import Text.Html
import qualified Data.ByteString.Char8 as B
import qualified Data.ByteString.Lazy.UTF8 as U
main = simpleHTTP conf handler
conf = Conf 8080 Nothing
handler = return f
hello = header << thetitle << "안녕"
+++ body << "세상"
f = U.fromString $ renderHtml hello
instance ToMessage U.ByteString where
toContentType _ = B.pack "text/html"
toMessage = id
음.. 사실 ToMessage Html 인스턴스를 유니코드먹인걸로 덮어쓰고
싶었는데 방법을 잘 모르겠네. 기존 인스턴스를 무시하고 새인스턴스를
정의한다거나 하는건 안되나? newtype 으로 새 타입을 만들어주는 삽질을
해줘야 하는건가? import 시 적절히 저놈만 제외해줄수는 있나? 흠.
