{-# LANGUAGE GeneralizedNewtypeDeriving #-}

module Unused.TermSearch.Types
    ( SearchResults(..)
    , fromResults
    ) where

import Unused.Types (TermMatch)

newtype SearchResults = SearchResults [TermMatch] deriving (Monoid)

fromResults :: SearchResults -> [TermMatch]
fromResults (SearchResults a) = a