]> git.wincent.com - docvim.git/blobdiff - lib/Docvim/Parse.hs
Make unit tests a little more real
[docvim.git] / lib / Docvim / Parse.hs
index ae986610153009b0850404600c40df3cf25701de..c56606b3e174fa7c6c1708cc26bf34637cded481 100644 (file)
@@ -1,6 +1,9 @@
 {-# LANGUAGE FlexibleContexts #-}
 
-module Docvim.Parse (p, parse) where
+module Docvim.Parse ( p
+                    , parse
+                    , parseUnit
+                    ) where
 
 import Control.Applicative ( (*>)
                            , (<$)
@@ -271,3 +274,6 @@ parse fileName = parseFromFile unit fileName >>= either report return
 -- import Parse (p)
 -- p "test"
 p = parseTest unit
+
+-- | To facilitate unit-testing.
+parseUnit = runParser unit () "(eval)"