Skip to content

Use the QuasiQuote trick from dflemstr to reduce object file size 95% #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
ddssff wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Use the QuasiQuote trick from dflemstr to reduce object file size 95% #2

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
ca17a87
Use the QuasiQuote trick from dflemstr to reduce object file size 95%
ddssff Jan 20, 2022
87fcf9c
The trick works even if you inline the data in splices.
ddssff Jan 20, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions .ghci
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1 +1,3 @@
:set -XOverloadedStrings
:set -XQuasiQuotes
:set -isrc
2 changes: 2 additions & 0 deletions html-entity.cabal
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -47,6 +47,7 @@ library
exposed-modules:
Text.HTMLEntity
other-modules:
Text.HTMLEntity.TH
Text.HTMLEntity.Parser
Text.HTMLEntity.Table
Paths_html_entity
Expand All @@ -56,6 +57,7 @@ library
build-depends:
attoparsec
, base ==4.*
, template-haskell
, text
, unordered-containers
if flag(werror)
Expand Down
13 changes: 13 additions & 0 deletions src/Text/HTMLEntity/TH.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
module Text.HTMLEntity.TH where

import Language.Haskell.TH
import Language.Haskell.TH.Quote

literally :: String -> Q Exp
literally = return . LitE . StringL

lit :: QuasiQuoter
lit = QuasiQuoter { quoteExp = literally }

litFile :: QuasiQuoter
litFile = quoteFile lit
Loading