{-# LANGUAGE TypeSynonymInstances #-}
module Linspire.Debian.Version.String
    ( ParseDebianVersion(..)
    ) where

import Text.ParserCombinators.Parsec

import Linspire.Debian.Version.Common
import Linspire.Debian.Version.Internal

instance ParseDebianVersion String where
    parseDebianVersion str =
        case parse parseDV str str of
          Left e -> error (show e)
          Right dv -> DebianVersion str dv