module MediaWiki.API.Action.OpenSearch where
import MediaWiki.API.Types
data OpenSearchRequest
= OpenSearchRequest
{ osSearch :: String
, osLimit :: Maybe Int
, osNamespaces :: Maybe [Int]
}
emptyOpenSearchRequest :: String -> OpenSearchRequest
emptyOpenSearchRequest tit
= OpenSearchRequest
{ osSearch = tit
, osLimit = Nothing
, osNamespaces = Nothing
}
data OpenSearchResponse
= OpenSearchResponse
{ osHits :: [OpenSearchHit]
}
data OpenSearchHit
= OpenSearchHit
{ oshTitle :: String
, oshMatches :: [String]
}