{-# LANGUAGE OverloadedStrings #-}moduleMainwhereimportControl.Monad.IO.Class(liftIO)importWeb.ScottyimportqualifiedTemplateimportqualifiedStoragemain::IO()main=scotty3000$doget"/"$dopage<-liftIO(Template.paneList`fmap`Storage.getPanes)htmlpageget"/chunk/:n"$don<-param"n"letoffset=0x100000+(n*0xff)html(Template.charListoffsetn)