{-# LANGUAGE FlexibleInstances, TemplateHaskell, UndecidableInstances #-}
module FLM.Types where

--import HAppS.Data
--import HAppS.Data.IxSet
import FLM.HAppS

getWords page = let Just (PText s) = gFind page in map Word $ words s

$(inferIxSet "WikiPages" ''WikiPage 'getWords [''Id, ''Updated, ''Author, ''Word ])