diff --git a/Text/Appar/Parser.hs b/Text/Appar/Parser.hs
--- a/Text/Appar/Parser.hs
+++ b/Text/Appar/Parser.hs
@@ -55,7 +55,6 @@
 
 import Control.Applicative
 import Control.Monad
-import Data.ByteString.Lazy.Char8 (ByteString)
 import Data.Char
 import Text.Appar.Input
 
@@ -97,7 +96,7 @@
 {-|
   Run a parser.
 -}
-parse :: MkParser ByteString a -> ByteString -> Maybe a
+parse :: Input inp => MkParser inp a -> inp -> Maybe a
 parse p bs = fst (runParser p bs)
 
 ----------------------------------------------------------------
diff --git a/appar.cabal b/appar.cabal
--- a/appar.cabal
+++ b/appar.cabal
@@ -1,5 +1,5 @@
 Name:                   appar
-Version:                0.1.3
+Version:                0.1.4
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3