From b85e2f27ce06f2496232b6adf5c0b8b1cd695828 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Wed, 22 Jun 2016 10:53:50 -0400
Subject: [PATCH] Add an Arbitrary instance over Grams.

---
 src/Data/Gram/Arbitrary.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/Data/Gram/Arbitrary.hs b/src/Data/Gram/Arbitrary.hs
index af0820575..960de3525 100644
--- a/src/Data/Gram/Arbitrary.hs
+++ b/src/Data/Gram/Arbitrary.hs
@@ -1,2 +1,9 @@
+{-# OPTIONS_GHC -fno-warn-orphans #-}
 module Data.Gram.Arbitrary where
 
+import Data.Gram
+import Prologue
+import Test.QuickCheck
+
+instance Arbitrary label => Arbitrary (Gram label) where
+  arbitrary = Gram <$> arbitrary <*> arbitrary