1 -- Copyright (C) 2004 David Roundy
    2 --
    3 -- This program is free software; you can redistribute it and/or modify
    4 -- it under the terms of the GNU General Public License as published by
    5 -- the Free Software Foundation; either version 2, or (at your option)
    6 -- any later version.
    7 --
    8 -- This program is distributed in the hope that it will be useful,
    9 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
   10 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   11 -- GNU General Public License for more details.
   12 --
   13 -- You should have received a copy of the GNU General Public License
   14 -- along with this program; see the file COPYING.  If not, write to
   15 -- the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
   16 -- Boston, MA 02110-1301, USA.
   17 
   18 module Darcs.Patch.MatchData ( PatchMatch(..), patch_match,
   19                       ) where
   20 
   21 data PatchMatch = PatternMatch String
   22                   deriving ( Eq )
   23 
   24 instance Show PatchMatch where
   25     show (PatternMatch m) = "pattern " ++ show m
   26 
   27 patch_match :: String -> PatchMatch
   28 patch_match s = PatternMatch s