mirror of
https://github.com/CrystalSplitter/ghcitui.git
synced 2024-10-26 10:58:12 +03:00
11 lines
284 B
Haskell
11 lines
284 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module SplashTextEmbed (splashText) where
|
|
|
|
import Data.String (IsString)
|
|
|
|
import qualified Data.FileEmbed as FileEmbed
|
|
|
|
splashText :: (IsString a) => a
|
|
splashText = $(FileEmbed.makeRelativeToProject "assets/splash.txt" >>= FileEmbed.embedStringFile)
|