Main.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE TemplateHaskell #-}
module Main where

import Language.Haskell.TH

import Foo

main :: IO ()
main = do
  putStrLn $(return $ LitE (StringL (show (foo 42))))