Garden

2016-01-26 13:38:02 +01:00
parent a70732a4b6
commit 78e0d871d5
5 changed files with 8 additions and 6 deletions
--- a/Data/GraphQL/AST.hs
+++ b/Data/GraphQL/AST.hs
@@ -1,8 +1,8 @@
 module Data.GraphQL.AST where

 import Data.Int (Int32)
+import Data.String (IsString(fromString))
 import Data.Text (Text, pack)
-import Data.String

 -- * Name

@@ -39,9 +39,7 @@ data Selection = SelectionField Field
               | SelectionInlineFragment InlineFragment
                 deriving (Eq,Show)

-data Field = Field Alias Name [Argument]
-                              [Directive]
-                              SelectionSet
+data Field = Field Alias Name [Argument] [Directive] SelectionSet
             deriving (Eq,Show)

 type Alias = Name