@@ -4,6 +4,8 @@
44{-# LANGUAGE OverloadedStrings #-}
55{-# LANGUAGE TemplateHaskell #-}
66
7+module Data.YamlSpec (main, spec) where
8+
79import qualified Text.Libyaml as Y
810import qualified Data.ByteString.Char8 as B8
911
@@ -41,7 +43,10 @@ data TestJSON = TestJSON
4143deriveJSON defaultOptions ''TestJSON
4244
4345main :: IO ()
44−main = hspec $ do
46+main = hspec spec
47+
48+spec :: Spec
49+spec = do
4550 describe "streaming" $ do
4651 it "count scalars with anchor" caseCountScalarsWithAnchor
4752 it "count sequences with anchor" caseCountSequencesWithAnchor