~alcinnz/rhapsode

ref: 2e70c6feff0d188625841912a068e64ae8ca1dc0 rhapsode/src/Types.hs -rw-r--r-- 547 bytes
2e70c6fe — Adrian Cochrane Extract logic into dependency! 1 year, 6 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)