src/PreludeCu.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE TemplateHaskell #-}
module PreludeCu where

import Control.Monad.IO.Class (liftIO)
import Language.Haskell.TH (Exp(LitE), Lit(StringL))


prelude :: String
prelude = $(LitE . StringL <$> liftIO (readFile "prelude.cu"))