~alcinnz/rhapsode

ref: 2dc5e4d3e62531c5915ee0bc8dca6068be8faff0 rhapsode/src/Types.hs -rw-r--r-- 547 bytes
2dc5e4d3 — Adrian Cochrane Fix embedding of data files to be more lenient towards build systems. 10 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
module Types(CArray, Page(..), Application(..), RhapsodeCSS, buildDirFile, readStrict) where

import SpeechStyle (SpeechStyle)
import Data.CSS.Preprocessor.Conditions (ConditionalStyles, conditionalStyles)
import Data.CSS.Preprocessor.Text (TextStyle)

import Network.URI.Fetch (Application(..), url)
import Network.URI.Fetch.XML (Page(..), loadVisited, readStrict)

import System.FilePath ((</>))
import Foreign.Ptr

buildDir = "."
buildDirFile = (buildDir </>)

type CArray a = Ptr a
type RhapsodeCSS = ConditionalStyles (TextStyle SpeechStyle)