Remove year section

test/PatternSpec.hs

@@ -15,20 +15,20 @@ spec :: Spec
 spec =
   describe "Cron pattern" $ do
     it "matches fixed time" $
-      let ptn = "* * * * * *"
+      let ptn = "* * * * *"
           date = DateTime 2017 10 11 0 0 0
       in match ptn date `shouldBe` Just True
     it "matches all minutes" $
-      let ptn = "* * * * * *"
+      let ptn = "* * * * *"
           dates = [DateTime 2017 10 11 0 i 0 | i <- [0 .. 59]]
       in countMatches ptn dates `shouldBe` 60
     it "matches exactly moment" $
       let date = DateTime 2017 10 11 0 0 0
-          ptn = "0 0 11 10 * 2017"
+          ptn = "0 0 11 10 *"
       in match ptn date `shouldBe` Just True
     it "matches moment" $
       let date = DateTime 2017 10 10 12 10 0
-          ptn = "* 12 * * * *"
+          ptn = "* 12 * * *"
       in match ptn date `shouldBe` Just True
 
 countMatches :: String -> [DateTime] -> Int